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SECTION 1 
Introduction 



The Microsoft TRS-80 FORTRAN Package contains the following 
software and documentation: 



Disk Software 



gf/cMD 



#1 



Documentation 

f TRS-80 FORTRAN Package 
User's Manual 



TRS-80 FORTRAN Compiler < 



Microsoft FORTRAN-80 
^ Reference Manual 






MACRO- 80 Assembler 

LINK-80 Linking Loader 

CR£F-80 Cross Reference 

Facility 

FORLIB/REL FORTRAN-80 

Subroutine Library 



Microsoft Utility 
Software Manual 



epit/ 



GMD 



#2 



EDIT-80 Text Editor 



Microsoft EDIT-80 User's 
Guide . 



NOTE 

We recommend that you immediately 
make back-up copies of both diskettes 
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1 • 1 Sample Session 

The fastest way to familiarize yourself with the 
TRS-80 FORTRAN Package is to use it. You can start 
using the software right away by following the 
sample coding session outlined below. A FORTRAN 
program is provided in Figure 1 for use during the 
session. Before beginning STEP 1, you should be at 
TRSDOS command level. 

STEP 1; Place diskette #2 in the disk drive and 
enter the command: 

EDIT 

This loads the EDIT-80 text editor. 
EDIT-80 will respond with 

FILE: 

If you are using the program in Figure 1, 
type the filename TEMP/FOR followed by the 
<break> key. If you are using your own 
FORTRAN program, type any legal TRSDOS 
filename. Always follow the filename with 
<break> when creating a new file and with 
<enter> when reading in an existing file. 



After EDIT-80 prints the message: 

Creating 

Version x.x 

Copyright 1977,78 (c) by Microsoft 

Created: xxxx 

xxxx Bytes free 

* 

enter the command: 



EDIT-80 will print 00100, which is the 
first line number. 

STEP 2: Start entering the FORTRAN program as 
listed in Figure 1 (or enter your own 
FORTRAN program). EDIT-80 will type the 
next line number each time you <enter> a 
line. 

While you're typing in your program, all 
of EDIT-80* s editing, capabilities are 
available to you. Read through the 
EDIT-80 User's Guide. You'll see how easy 
it is to insert and delete lines, modify 
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- v text, and search for text. This is a good 

v s chance to experiment with EDIT-80. 

When writing any FORTRAN program for your 
TRS-80, use the Microsoft FORTRAN-80 
Reference Manual to determine the correct 
syntax and usage of all FORTRAN 
statements. 

STEP 3: When you are finished typing in the 
program, type a <break> •**«*£•£«* 
available line number to return to EDIT-BO 
command level. To exit the editor, enter 
the commands 

S 

Now there is a FORTRAN program called 
TEMP /FOR on disk that is ready to compile. 
This program is the source file. 

STEP 4s Syntax check. ' 

Before proceeding, it is a good idea to 
check the program for syntax errors. 
Removing syntax errors now eliminates a 
possible recompilation later. To Perform 
*Z the syntax check on the source file called 

TEMP /FOR, place diskette #1 in the ais* 
drive and types 

F80 -TEMP 

This command loads the FORTRAN compiler 
and compiles the source file without 
producing an object or listing f* 1 * <*°" 
on object and listing files in STEP 5) . 
If there are errors, run EDIT-80 again 
(STEP 1) and correct them. 

STEP 5: Compile the source file. _ rvit5 /rnB 

To compile the source file «11«? " M *£° R 
and produce an object ar.d listing rile, 

type the following: 

F80 TEMP, TEMP-TEMP 

Now there is a relocatable <*3£* ftjj 
called TEMP/REL and a l«txng file «llea 
TEMP/LST on the disk. REL and LST are the 
default extensions supplied by tne 
compiler. The object file . contains tne 
machine-readable code *•"•»"* ,|* the 
compiler. The listing file «""ins tne 
\ ' FORTRAN program statements and the * ach1 "* 

V language generated by each statement. See 
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Figure 2 for a copy of the listing file 
generated by TEMP. 

STEP 6: Load and execute the program. 

To load the program into memory and 
execute it, put diskette 12 in the disk 
drive and type: 

L80 TEMP-G 

This command runs LINK-80, which in turn 
loads the object file TEMP/REL into the 
correct memory locations, searches the 
system library for any undefined 
references, and executes the program. 
Your program output should appear on the 
screen as shown in Figure 3. 

STEP 7 i Save the object code. 

The object file, once it has been loaded 
by LINK-80, is in a form that can be 
executed by the TRS-80 computer. To save 
a copy of this file, type: 

L80 TEMP-N,TEMP-E 

This command writes a copy of the 
executable object file to disk under the 
name TEMP/CMD, and then exits ^ to TRSDOS. 
The program may subsequently be run by 
entering the command: 

TEMP 

at TRSDOS command level. For more 
information on LINK-80, see Section 2 of 
the Microsoft Utility Software Manual. 
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FIGURE 1 FORTRAN SOURCE FILE - TEMP /FOR 



00100 C CONVERT FAHRENHEIT TO CENTIGRADE 

00200 INTEGER F 

00300 WRITE (5,5) „„„....-> 

00400 5 FORMAT (33H FAHRENHEIT CENTIGRADE) 

00500 DO 20 F«20,65,5 

00600 C-5./9.MF-32) 

00700 WRITE(5,10)F,C 

00800 10 F0RMAT(12X,I2,11X,F6.3) 

00900 20 CONTINUE 

01000 END 

01100 I 



(This is the echo 
from the <break> key.) 
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FIGURE 2 LISTING FILE TEMP/LST 



1. FORTRAN 

2. BVTES : : 
3'.. CREATED 

4 ©01 OG 

5 GO 2. 00 
•5. 001 00 

7. :**•■ *:*:* 
•-; :« :4c :«:*:* 
Ci .-♦::♦£ ^s :♦::♦: 

:4c:* :4c*:* 

00400 

00500 
00 €00 

:*i:4c '.#:#:* 
:4<>4«:4<>«e:4t 
00700 
:*:4c :*:*:* 
:*:*:*:*.* 
r 4c:«c:4e:«*< 
.4: :fc ;4<:*:* 
«:*:« :*:* 

4::* :♦::*•* 
:♦::♦-•:♦::♦£:♦: 
:4;-.4t :**::* 
*t :♦::♦: :♦::♦: 
♦::♦::♦::♦::♦: 
>::♦:.♦<:♦::♦! 
♦:>::*:♦::♦: 
:♦::♦::♦•..♦::♦: 
*.* 4* :: * 

OOSOO 

4 ♦::♦::*•♦: 
*:♦;:♦::♦::♦: 
.4. :♦::♦: :♦::♦: 
4::4::4::4:)« 
4: „4- -4- :♦•.:♦» 
♦::4: •.♦J'-*'-* 
| 4;:4 : -4'^« 
4 ♦: 4: 4=:* 
* 4.4;4::4c 

OO'.^OO 
O100© 



10. 
11. 
12. 

12. 
14 
1.5 
16 
17 

i? 

20 
21 



24 



-SO VER. 
;69S» 



4 J 

•12 

-I " 



0000 ' 
0002 y 
0006 •' 
GOOS ' 
GOOC-' 

5 
OOGF y 



0012 ' 
0015 ' 

00 IS" 
00 IB'' 
OOlE ' 
00 IF •" 
0022 '" 
0025 " 
0028 " 
00 2 B " 
002E '" 
0021 
0024'" 
0027 ' 
00 2 A"'" 
00 2D ' 
0040 
10 
£iiTi4": ' 

0046 
0049" 
004 & 
004 E 
0051 
0054 
0056 
00 5 9 
20 



COPVRIGHT ±973 <C> BV MICROSOFT 



CONVERT FAHRENHEIT TO CENTIuRhDE 

INTEGER F 
WRITERS, 5> 
LD BC, **L 
jp SINIT 
LD DE-- 5L 
LD HL. C 
CALL *W2 
FORMAT C32H 
CALL *ND 
DO 20 F*20. 65. 5 
C*5. /9. *<F-22> 
L C> HL, 0014 
L <F>,HL 
WRITE<5, 10 >F. C 



05 00 1 
FAHRENHEIT 



CENTIGRADE- 1 



LD 

LD 

ADD 

LD 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

LD 

l. HLL 



HL, <F> 
DE, FFEO 
HL, DE 

< T : 000000 > > HL 

HL, t ©O 

*L1 

HL, f GO 

*DB- 

HL. < T 000000 > 

•J MA 

HL, C 

ST1 

DE, 10L 

HL, fr G5 

XN2 



00 
00 



20 
10 



S4 Vc 



FORMAT <12X, 12- ll'.'- F*- - 



LD 

LD 

LD 

CALL 

LD 

LD 

LD 

CALL 

CALL 

CONTINUE 

END 



DE, F 
HL, t 

A, 02 

*I0 

DE, C 

HL,f 

A, 02 

Sll 

*ND 



01 



01 



00 Jfe- 



00 J*r 



00 36- 



-continued- 
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46. 
47. 
48. 

50. 
51. 

53. 

54. 

55. 

36. 

57. 

58. 

59. 

60. 

61. 

63 
64. 
65. 
66. 
67. 
6&. 
65* 
70. 
71. 

73. 
74. 
75 



■It***:* 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

***** 

404: * ** 

***** 



0O5C 

0O5F -' 

0O62 ' 

0O63' 

0065 ■' 

0G66 ' 

0068- 

0069' 

0O6C ' 

0O6F " 

0071' 

0O73' 

©077- 



LD 
LD 

RDD 

LD 

SUB 

LD 

SBC 

JP 

CALL 

0100 

05OO 

0O0O20S3 

0OO01OS4 



HL, CF> 

DE, 0005 

HL, DE 

ft. 41 

L 

ft. 00 

H 

P, 0015 ' 

SEX 



PROGRAM 
DATA AREA 



23 -> BVTES 



UNIT LENGTH-007B <±^> 
LENGTH«0O40 C64.> BVTE^. 



^. SUBROUTINES REFERENCED 



#11 

#U2 

#DB 

#e:«: 
variables: 

F 0001 



#10 

#ND 
SMA 



*init 

#L1 
#T1 



LABELS 

SSL 
10L 



0006 ' 
002F" 



5L 



0029" 



0003 



T 000 00 l J 



iOL 



00 5l 
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FAHRENHEIT 


CENTIGRADE 


20 


-6.667 


25 


-3.889 


30 


-1.111 


35 


1.667 


40 


4.444 


45 


7.222 


50 


10.000 


55 


12.778 


60 


15.556 


65 


18.333 
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The TRS-80 FORTRAN Package provides a lot more 
capability than is demonstrated in this short 
session. For instance, you may «■»» *o . w "" 
assembly language programs using MACRO- 80 and Unk 
them to your FORTRAN programs, or use them 
independently for process control or »OT«oth«- 
indication. Or you might want to incorporate 
Coroutines from ^ORTRAN's library into your own 

assembly language routines » ee u A PP e "£t Jito^ it 
FORTRAN-80 Reference Manual). Kith the ^tor, it 
is easv to create disk data files to be rererenceo 
by your program. . It is possible to interface your 
custom I/O device by siting your own device driver 
routine (See Appendix B of the FORTRAN- 80 Reference 
Manual). Keep experimenting, and *° u " "J* 
pleasantly surprised at how much computing power 
has been added to your TRS-80. 

1.2 Mote on TRS-80 FORTRAN Manuals 

The FORTRAN-80 Reference Manual • is strictly a 
reference for the syntax and "^ntics of the 
TRS-80 FORTRAN language. It is not intended as a 
tutorial on FORTRAN programming. If V? u "« " ew £ 
FORTRAN and need help learning the language, we 

suggest: 

1 "Guide to FORTRAN-IV Programming" by Daniel 
McCracken (Wiley, 1965) 

2 "Ten Statement FORTRAN Plus FORTRAN IV" by 
Michael Kennedy and Martin B. Solomon 

(Prentice-Hall, 1975, Second Edition) 

3. "FORTRAN" by Kenneth P. Seidel (Goodyear, 
1972) 

The Microsoft Utility Software Manual is «trictly a 
reference for 'he commands, «^t=hes, Pseud Q 
operation* and error messages ©i *-*"= 
..seller and LINK-80 linking loader It is not 
intended as a tutorial on "«mbly "£ 9U z f 

_ ^„»-m,<«« if vou are unfamiliar witn *»« 

progrananing. it you er shack 

assembly language, refer to we z8 0-RIO 

Assembler/Editor Manual and filog s ^ 

Relocating Assembler and Linker User's Manual. 
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SECTION 2 
TRS-80 FORTRAN Compiler 



If you followed the sample session, you are becoming 
familiar with the software in your TRS-80 FORTRAN Package. 
Now let's look specifically at the TRS-80 FORTRAN compiler. 

2 • 1 Running the Compiler 

When you give TRSDOS the command 
F80 

(diskette #1 must be in the disk drive), you are 
running the TRS-80 FORTRAN compiler. The FORTRAN 
compiler takes a FORTRAN program (source file) and 
compiles it to generate a relocatable object file, 
that is, a file that is in machine code. When the 
compiler is ready to accept commands, it prompts 
the user with an asterisk. To exit the compiler, 
use the <break> key. 

A command may also be typed on the same line as the 
invocation. This is called a "command line." We 
did this in the Sample Session when we typed the 
command line: 

F80 -TEMP 

After executing a command line, the compiler 
automatically exits to the operating system. 

2.2 Command Format 

A compiler command conveys the name of the source 
file you want to compile, and what options you want 
to use. Here is the format for a compiler command 
(square brackets indicate optional) : 

[object filename] [, listing filename] -source filename [-switch. .. ] 

NOTE 

All filenames must be in TRSDOS filename 

format: 

filename [/ext] [.password] [:drive#] . x ^*^ 

are using the compiler's default 

extensions, it is not necessary to specify 

an extension in a compiler command. 
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Let's look individually at each part 
compiler command: 



of 



the 



1. Object filename 

To create a relocatable object file, this part 
of the command must be included. It is simply 
the name that you want to call the object file. 
The default extension for the object filename 
is /REL. 

2. Listing filename 

To create a listing file, this part of the 
command must be included. It is simply the 
name that you want to call the listing file. 
The default extension for the listing file is 
/LST. 

3. Source filename 

A compiler command must always include a source 
filename — that is how the compiler "knows" 
what to compile. It is simply the name of a 
FORTRAN program you have saved on disk. The 
default extension for a FORTRAN source filename 
is /FOR. The source filename is always 
preceded by an equal sign in a compiler 
command. 

Examples (asterisk is typed by F80) : 



'TEST 



•TEST, TEST-TEST 



Compile the program TEST/FOR 
without creating an object 
file or listing file. 

Compile the program TEST/FOR. 
Create a relocatable object 
file called TEST/REL and a 
listing file called TEST/LST. 



*, TEST. PASS-TEST. PASS Compile the program TEST 

/FOR. PASS and create a 
listing file called 
TEST/LST. PASS (No object file 
created.) ' 



♦TESTOBJ-TEST 



Compile the program TEST/FOR 
and create an object file 
called TESTOBJ/REL. (No 
listing file created.) 

4. Switch 

A switch on the end of a command specifies a 
special parameter to be used during 
compilation. Switches are always preceded by a 
dash (-) . More than one switch may be used in 
the same command. The available switches are: 
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Switch 



Action 

Print all listing addresses 
octal. 



in 



H 



N 



M 



Print all listing addresses in 
hexadecimal (default condition) • 

Do not list the object code that is 
generated. List only the FORTRAN 
source code. 

Each -P allocates an extra 100 
bytes of stack space for use during 
compilation. Use -P if stack 
overflow errors occur during 
compilation. Otherwise not needed. 

Specifies to the compiler that • the 
generated code should be in a form 
which can be loaded into ROMs. 
When a -M is specified, the 
generated code will differ from 
normal in the following ways: 

1. FORMATS will be placed in the 
program ' area, with a "JMP" around 
them. 

2. Parameter blocks (for 
subprogram calls with more than 3 
parameters) will be initialized at 
runtime, rather than being 
initialized by the loader. 



Examples : 
*CT.M£,CT.ME»CT.ME-0 



*CT,CT*CT-N 



Compile the program 
CT/FOR.ME. Create a listing 
file called CT/LST.ME and an 
object file called CT/REL.ME. 
The addresses in the listing 
file will be in octal. 

Compile the program CT/FOR. 
Create an object file called 
CT/REL and a listing file 
called CT/LST. The listing 
file will contain only the 
FORTRAN source statements, 
not the 'generated object 
code. 
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•MAX10-MAX10-P-P Compile the program MAX 10/FOR 

and create an object rue 
called MAX10/REL. The 
compiler is allocated 200 
extra bytes of stack space. 



NOTE 

If a FORTRAN program is intended for ROM, 
the programmer should be aware of the 
following ramifications: 

1. DATA statements should not be used to 
initialize RAM. Such initialization is 
done by the loader, and will therefore 
not be present at execution. Variables 

. and arrays may be initialized during 
execution via assignment statements, or 
by READing into them. 

2. FORMATS should not be read into during 
execution. 

3. If the standard library J/° / ou ^ n " 
are used, DISK files should not be 
OPENed on any LUNs other than 6, 7, b, 
9, 10. If other LUNs are needed for 
Disk I/O, ILUNTB should be recompiled 
with the appropriate addresses pointing 
to the Disk driver routine. 

A library routine, UNIT, sets the stack 

pointer at the top of available memory (as 
indicated by the operating system) beiore 
execution begins. 

The calling convention is: 

LXI B,<return address> 
JMP $INIT 

If the generated code is intended for some 
other machine, this routine should Probably 
be rewritten. The source of the Jtandard 
initialize routine is provided on the disK 
as -INIT/.MAC". Only the portion of this 
routine which sets up the stack P° in £er 
should ever be modified by the user. The 
FORTRAN library already contains tne 
standard initialize routine. 
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V 

2.3 Input/Output Device Names 

In the commands discussed so far, it is assumed 
that all files are read from and written to the 
disk. To use an I/O device other than the disk, 
specify the device name in place of the filename in 
the compiler command. 

The device names supplied by TRSDOS are: 

*KI Keyboard Input 
*DO Display Output 
♦PR Printer Output 

(*DO and *PR are available only with TRSDOS Version 
2.2 or later.) 

Examples: 

*TEST,*PR-TEST Compile the program TEST/FOR. 

Create an object file called 
TEST/REL and output the listing 
file, TEST/LST, at the printer. 

*TEST,*DO~TEST-N Compile the program TEST/FOR. 

Create an object file called 
TEST/REL and output the listing 
file, TEST/LST at the video 
display. The listing file will 
only contain the FORTRAN source 
statements, not the generated 
object code. 

*.»KI *KI is used only if you want to 

input a source file from the 
keyboard. This command compiles 
the source file read from the 
keyboard without creating a R£L or 
LST file. 

REMEMBER: In FORTRAN I/O statements (READ and 
WRITE) LUNs 1, 3, 4, and 5 default to the 
console/keyboard (*DO/*KI) , LUN 2 defaults to the 
line printer (*PR) , and LUNs 6-10 default to the 
disk drive. 
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SECTION 3 
TRS-80 FORTRAN Disk Files 

SEE ALSO FORTRAN-80 REFERENCE MANUAL, SECTION 8.3. 
3.1 Default Disk Filenames 

SSSS by a READ or WRITE statement ^s given a 
default filename that depends on the LUN. 

LUN Default Filename 

6 FORT06/DAT 

7 FORT 07 /DAT 

8 FORT 08 /DAT 

9 FORT09/DAT 
10 FORT10/DAT 

3.2 CALL OPEN 

Tn . t .. d f U8 ing READ or WRITE, a disk file may be 

«5™!S hv calling the OPEN subroutine (see the 

OPENed by caning ~'" , e ec tion 8.3.2). The 

FORTRAN-80 Reference Manual, Section o. .».*#. 

format of an OPEN call is: 

CALL OPEN (LUN, Filename, Reclen) 

where : 

win - a Logical Unit Number to be *" ociate $ "^ 

L Z meruit be an Integer constant or Integer 
veriable with a value between 1 end ">>• 

fil.name - en ASCII name which «S»°S "*" 
...octet, Eth the file. The Filenam e should be e 
SoUerith or literal constant, or a variable or 
errey name where the variable <*•""** on ^" forro 
ASCII neme. The Filename .hould be in tne 
normally required by TRSDOS, 

£ilename/ext . pes sword : drive* 
and it should be terminated with a non-alpha 
character, preferably a blan*. 

\ Reclen - The number of bytes you wish to •*£*** 

, (up to 256) as the record l«»gth. The o 

= record length is 128 bytes. . -Mcl.n must d 

Integer constant or Integer variable. K 
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supplied for Reclen, the record length will be 256 
bytes. 

The following are examples of valid OPEN calls: 

CALL OPEN (6 , 'TIME/DAT. JULY :1 *,256) 

CALL OPEN H^COUNT/NUM ',200) 

CALL OPEN df'TESTQ/MIN^ • ,100) 
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_^ SECTION 4 

- r -* 

V Error Messages 

4.1 fORTRAN Compiler Error Messages 

The FORTRAN-80 Compiler detects two Kinds of 
errors: Warnings and Fatal Errors. When a Warning 
is issued, compilation continues with the next item 
on the source line. When a Fatal Error is found, 
the compiler ignores the rest of the logical line, 
including any continuation lines. Warning messages 
are preceded by percent signs (%), and Fatal Errors 
by question marks (?). The editor line number, if 
any, or the physical line number is printed next. 
It is followed by the error code or error message. 

Example : 

?Line 25: Mismatched Parentheses 

%Line 16: Missing Integer Variable 

When either type of error occurs, the program 
t ""' should be changed so that it compiles without 

errors. No guarantee is made that a program that 
compiles with errors will execute sensibly. 

Fatal Errors: 

Error 

Number Message 

100 Illegal Statement Number 

101 Statement Unrecognizable or Misspelled 

102 Illegal Statement Completion 

103 Illegal DO Nesting 

104 Illegal Data Constant 

105 Missing Name 

106 Illegal Procedure Name 

107 Invalid DATA Constant or Repeat Factor 

108 Incorrect Number of DATA Constants 

109 Incorrect Integer Constant 

110 Invalid Statement Number 

111 Not a Variable Name 

112 Illegal Logical Form Operator 

113 Data Pool Overflow 

114 Literal String Too Large 

115 Invalid Data List Element in I/O 

116 Unbalanced DO Nest 

117 Identifier Too Long 

118 Illegal Operator 

119 Mismatched Parenthesis 



^ 
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120 Consecutive Operators 

121 Improper Subscript Syntax 

122 Illegal Integer Quantity 

123 Illegal Hollerith Construction 

124 Backwards DO reference 

125 Illegal Statement Function Name 

126 Illegal Character for Syntax 

127 Statement Out of Sequence 

128 Missing Integer Quantity 

129 Invalid Logical Operator 

130 Illegal Item Following INTEGER or REAL or 
LOGICAL 

131 Premature End Of File on Input Device 

132 Illegal Mixed Mode Operation 

133 Function Call with No Parameters 

134 Stack Overflow 

135 Illegal Statement Following Logical IF 

Warnings : 

Duplicate Statement Label 

1 Illegal DO Termination 

2 Block Name « Procedure Name 

3 Array Name Misuse 

4 COMMON Name Usage 

5 Wrong Number of Subscripts 

6 Array Multiply EQUIVALENCEd within a Group 

7 Multiple EQUIVALENCE of COMMON 

8 COMMON Base Lowered 

9 Non-COMMON Variable in BLOCK DATA 

10 Empty List for Unformatted WRITE 

11 Non-Integer Expression 

12 Operand Mode Not Compatible with Operator 

13 Mixing of Operand Modes Not Allowed 

14 Missing Integer Variable 

15 Missing Statement Number on FORMAT 

16 Zero Repeat Factor 

17 Zero Format Value 

18 Format Nest Too Deep 

19 Statement Number Not FORMAT Associated 

20 Invalid Statement Number Usage 

21 No Path to this Statement 

22 ■ Missing Do Termination 

2 3 Code Output in BLOCK DATA 

24 Undefined Labels Have Occurred 

25 RETURN in a Main Program 
2 6 STATUS Error on READ 

27 Invalid Operand Usage ■ 

28 Function with no Parameter 

29 Hex Constant Overflow 

30 Division by Zero 

32 Array Name Expected 

33 Illegal Argument to ENCODE/DECODE 
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4 - 2 FORTRAN Runtime Error Messages 

During execution of a FORTRAN program one or more 
of the following errors could occur. Fatal errors 
cause execution to cease. Execution continues 
after a warning error. However, execution will 
cease after 20 warnings. Runtime errors are 
surrounded by asterisks as follows 

+ *FV?** 



Warning Errors: 

IB Input Buffer Limit Exceeded 

TL Too Many Left Parentheses in FORMAT 

OB Output Buffer Limit Exceeded 

DE Decimal Exponent Overflow 

(Number in input stream had 

an exponent larger than 99) 
IS Integer Size Too Large 
BE Binary Exponent Overflow 
IN Input Record Too Long 
OV Arithmetic Overflow 
CN Conversion Overflow 

on REAL to INTEGER Conversion 
SN . Argument to SIN Too Large 
A2 Both Arguments of ATAN2 are 
10 Illegal I/O Operation 

BI Buffer Size Exceeded During Binary I/O 
RC Negative Repeat Count in FORMAT 

Fatal Errors: 

ID Illegal FORMAT Descriptor 

FO FORMAT Field Width is Zero 

MP Missing Period in FORMAT 

FW FORMAT Field Width is Too Small 

IT I/O Transmission Error 

ML Missing Left Parenthesis in FORMAT 

D2 Division by Zero, REAL or INTEGER 

LG Illegal Argument to LOG Function 

(Negative or Zero) . 

SQ Illegal Argument to SQRT Function (Negative) 

DT Data Type Does Not Agree With FORMAT 

Specification 

EF EOF Encountered on READ 




Q©^®©®^ 
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SECTION 1 
INTRODUCTION 



FORTRAN i. a «« 1 v« r "i; 11 ?"5i! B pr.S«ttiSn and check-out 
language designed to ■$»P 1 "J*£ ? na P ? a nguage - FORTRAN - 
of computer programs. W»V2SS!i2f r * 
is an acronym for FORmula TRANslator. 

The .yntactical rule. «« ^^"SfS. "U'^ 

and require the P»f«~ in t0 a series of precise 
characteristics of a pr°bl?» Llled the source program, 
statements. These » tate »«" ts '" am called the FORTRAN 
are translated by * ■y s **L rare °in ?he machine language of 
processor into an oMeci program in tn executed . 
the computer on which the program u 

-, *--Hnm, the FORTRAN source language for the 8080 
This manual defines tne fuki «*•" . language includes the 
and Z-80 ■ ttic «=° m P"" rS ; QRT iV N language as described in 
American National Standard W«^ d 1 £ 9 lu I eh 7, 1966, plus a 
ANSI document ^3. 9-1966, approveao r . strictions . These 
number of language • xten » ion * «i c tl 0na are described in the 
language extensions and ««*£«J° ia Appen dix A. 
text of this document and are li.tea 

NOTE 

This FORTRAN differs from the 
Standard in that it does not 
"elude the COMPLEX data type. 

w * «.k» manual to illustrate 
Examples are included throughout the manua^ elemen , 

the construction and use of tn ^ as pect. of the 
ran 9 g r uar r to S ta^ d fuU allege of its capabilities. 
Section 2 describe, the for. an* co-pon**.^- 8080 
FORTRAN source program, "ctions Sections 5 through 9 
a nd their «pre,sional relationship ^ ^^ ^ ^ „ arl0US 
describe the proper >- WJ » a 
stawsment classes. 



V 
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SECTION 2 . 
FORTRAN PROGRAM FORM 



8080 FORTRAN source programs consist of one Program unit 
called the Main program and any number of program units 
caned lubprograms . A'dis cussion of subprogram types and 
methods ' oV writi ng and using them is in Section 9 of this 
manual. 

Programs and program units are constructed of an ordered set 
of statements which precisely describe P«cedure. for 
solving problems and which also define ^°™ation to be 
used by the FORTRAN processor during c °^ a ^° n °£ T ^ 
object program. Each statement is written .using the FORTRAN 
character set and following a prescribed line format. 

2.1 FORTRAN CHARACTER SET 

To simplify reference and explanation, ^ FORTRAN 
character set is divided into four subsets and a 
name is given to each. 

2.1.1 LETTERS 

A,B,C,D,E,F,G,H,I,J,K,L,M,N,0,P,Q,R,S,T,U 
V,W,X,Y,Z,S 



NOTE 

No distinction is made between upper and 

lower case letters. . However ' ^^^ 
and legibility, exclusive use of upper case 
letters is recommended. 



2.1.2 DIGITS 

0,1,2,3,4,5,6,7,8,9 



NOTE 



Strings of digits W"" 1 ?^"* teT"! 
Quantities are normally interpreted as 

I ' decimal numbers. However, in <=■"■{£ 

statements, the interpretation is in tne 
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Hexadecimal number system in which case the 
letters A, B, C, D, E, F may also be used 
as Hexadecimal digits. Hexadecimal usage 
is defined in the descriptions of 
statements in which such notation is 
allowed. 



2.1.3 ALPHANUMERICS 

A sub-set of characters made up of all letters and 

all digits. 

2.1.4 SPECIAL CHARACTERS 

Blank 
- Equality Sign 
+ Plus Sign 

Minus Sign 
* Asterisk 
/ Slash 

( Left Parenthesis — ^ 

) Right Parenthesis J 

Decimal Point 
NOTES : 



1. FORTRAN program lines consist of 80 u char * c J* r 
positions or columns, numbered 1 through 80. 
They are divided into four fields. 

2. The following special characters are ^^sified 
as Arithmetic Operators and are »^nificant in 
the unambiguous statement of arithmetic 
expressions. 

+ Addition or Positive Value 
- Subtraction or Negative VAlue 
* Multiplication 
/ Division 

Exponentiation 



** 



specific 



3 The other special characters have «P e ^ r ^ 

3 ' application in the «^ ^^rLn^ruction of 
the FORTRAN language and in the construction or 



FORTRAN statements. 



K 
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4. Any printable character may appear in a 
Hollerith or Literal field. 



2.2 FORTRAN LINE FORMAT 

The sample FORTRAN coding form (Figure 2.1) shows 
the format of FORTRAN program lines. The lines or 
the form consist of 80 character positions or 
columns, numbered 1 through 80, and are divided 
into four fields. 

1. Statement Label (or Number) field- Columns 1 
through 5 (See definition of statement labels). 

2. Continuation character field- 
Column 6 

3. Statement field- 
Columns 7 through 72 

4. Indentification field- 
Columns 73 through 80 

The identification field is available f orany 
purpose the FORTRAN programmer may desire ana is 
ignored by the FORTRAN processor. 

The lines of a FORTRAN statement are placed in 
Columns 1 through 72 formatted according to line 
types? The four line types, their definitions, and 
column formats are: 

1. Comment line - u«ed for .ource Program 
annotation et the convenience of the 
programmer. 

1. Column 1 contains the letter C. 

A> 2 Columns 2 - 72 are used in any *«""* 

4 format to express the comment or they may 

be left blank. 

3. A comment line may be followed only by an 
initial line, an END line, or another 
comment line. 

4. Comment lines have no effect on the object 
program and are isnorea Dy *.»<= * 
processor except for display purposes in 
the listing of the program. 




Figu-e 2.1 FORTRAN Coding Form 
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Example: 

r COMMENT LINES ARE INDICATED BY THE 
C CHARACTER C IN COLUMN 1. 
C THESE ARE COMMENT LINES 

2. END line - the last line of a program unit. 

1. Columns 1-5 may contain a statement label. 

2. Column 6 must contain a zero or blank. 

3. Columns 7-72 contain one of the <**""*" 
EN or D, in that order, preceded by, 
Separated by or followed by blank 
characters. 

4. Each FORTRAN program unit .nust have an END 

line as its last line ^" ? , j *t 
line a» *w physical end or 

Processor that it is at we, ynja* 

the program unit. 

5. An END line may follow any other type line. 

Exa mple; 
END 

3. Initial Line -- the firtt or only line of each 
statement. 

1 Columns 1-5 may contain a statement label 
to identify the statement. 

2. Column 6 must contain a zero or blank. 

3. Columns 7-72 contain all or part of the 

statement. 

4. An initial line may begin anyvhere within 
the statement field. 

Example; 

C THE STATEMENT BELOW CONSISTS 
C OF AN INITIAL LINE 

C A- .5*SQRT(3-2.*C) 
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4. Continuation Line -- used when ■"i** ^*^ 
of coding are required to complete a statement 
originating with an initial line. 

1. Columns 1-5 are ignored, unless Column 1 
contains a C. 

2. If Column 1 contains a C, it is a comment 
line. 

3. Column 6 must contain a character other 
than zero or blank. 

4. Columns 7-72 contain the continuation of 
the statement. 

5. There may be as ^* con ^ inu ^° n UneS ** 
needed to complete the statement. 

Example i 

C THE STATEMENTS BELOW ARE AN INITIAL LINE 
C AND 2 CONTINUATION LINES 

C 

63 ^^^^^.(BETACi^J.ASBAR^O 
2 - +SQRT (BETA(2,1))) 



FORTRAN statement initial line ana 
reference purposes in other statements. 

The following considerations govern the use of 
statement labels: 

1. The label is an integer from 1 to 99999. 

2. The numeric value of. the label, leading xeros 
and blanks are not significant. 

3. A label must be unique within a program unit. 

4. A label on a continuation line is ignored by 
the FORTRAN Processor. 
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Example; 

C EXAMPLES OF STATEMENT LABELS 

C 
1 

1 01 
99999 
763 



2.3 STATEMENTS 

Individual statements deal with specific aspects of 
a procedure described in a program unit and are 
classified as either executable or non-executable. 

Execut able statements specify actions and cause the 

FORTRAN Processor to generate object program 

instructions. There are three types of executable 
statements : 



1. Replacement statements. 

2. Control statements. 

3. Input/Output statements. 

Non-ex ecutable statements describe to the processor 
the — nature and arrangement of data and Provide 
information about input/output formats and oata 
initialization to the object program during program 
loading and execution. There are five types of 
non-executable statements: 

1. Specification statements. 

2. DATA Initialization statements. 

3. FORMAT statements. 

4. FUNCTION defining statements. 

5. Subprogram statements. 

The proper usage and construction of the y a ^° u ^ 
types of statements are ^escribed in Sections 5 

through 9. 
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SECTION 3 
DATA REPRESENTATION / STORAGE FORMAT 



The FORTRAN Language prescribes a definitive method for 
identifying data used in FORTRAN programs by name and type . 

3-1 DATA NAMES AND TYPES 

3.1.1 NAMES 

1. Constant - An explicitly stated datum. 

2. Variable - A symbolically identified datum. 

3. Array - An ordered set of data in 1, 2 or 3 
dimensions. 

4. Array Element - One member of the set of data 
of an array. 

3.1.2 TYPES 

1. Integer — Precise representation of integral 
numbers (positive, negative or zero) having 
precision to 5 digits in the range -32768 to +32767 
inclusive (-2**15 to 2**15-1). 

2. Real — Approximations of real numbers (positive, 
negative or zero) represented in computer storage 
in 4-byte, floating-point form. Real data are 
precise to 7+ significant digits and their 
magnitude may lie between the approximate limits of 
10**-38 and 10**38 (2**-127 and 2**127). 

3. Double Precision ~ Approximations of real numbers 

(positive, negative or zero) represented in 
computer storage in 8-byte, floating-point form. 
Double Precision data are precise to 16+ 
significant digits in the same magnitude range as 
real data. 

4. Logical — One byte representations of the truth 
values "TRUE" or "FALSE" with "FALSE defined to 
have an internal representation of zero. The 
constant .TRUE. has the value -1, however any 
non-zero value will be treated as .TRUE. * in a 
Logical IF statement. In addition, Logical types 
may be used as one byte signed integers in the 
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range -128 to +127, inclusive. 

5. Hollerith — A string of any number of characters 
from the computer's character set. All characters 
including blanks are significant. Hollerith data 
require one byte for storage of each character in 
the string. 



3.2 CONSTANTS 

FORTRAN constants are identified explicitly by 
stating their actual value. The plus (+) character 
need not precede positive valued constants. 

Formats for writing constants are shown in Table 
3-1. 
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Table 3-1. CONSTANT FORMATS 

FORMATS AND RULES OF USE EXAMPLES 

1. 1 to 5 decimal digits -763 
interpreted as a deci- l 
mal number. 

2. A preceding plus (+) or -32768 
minus C-) «ign ia op- +32767 
tional. 

3. No decimal point (.) or 
comma (,) is allowed. 

4. Value range: -3276 8 
through +32767 (.i.e., 
-2**15 through 2**15-1). 

REAL 1. A decimal number with 34 5;cr 7fl 

precision to 7 digits Z\A Vil 

and represented in one +j4s.o/o 

of the following forms: *l\zz 



a. + or -.f ♦ or -i.f 

b. + or -i.E+ or -e ' 
+ or -.fE+ or -e 
+ or -i.fE+ or -e 



where i, f, and e are 
each strings represent- 
ing integer, fraction, 
and exponent respective- 
ly. 

2. Plus (♦) and minus (-) 
characters are optional. 

3. In the form shown in 1 b 
above, if r represents any 
of the forms preceding 

E+ or -e (i.e., rE+ or -e) , 
the value of the constant 
is interpreted as r times 
10**e, where -38<-e<-38. 

4. If the constant preceding 
E+ or -e contains more 
significant digits than 



-73E4 
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the precision for real 
data allows, truncation 
occurs , and only the 
most significant digits 
in the range will be rep- 
resented. 



DOUBLE 
PRECISION 



A decimal number with 
precision to 16 digits. All 
formats and rules are identi- 
cal to those for REAL con- 
stants, except D is used in 
place of E. Note that a real 
constant is assumed single pre- 
cision unless it contains a 
"D" exponent. 



+345.678 
+ .3D3 
-73D4 



LOGICAL 



.TRUE, generates a non-zero 
byte (hexadecimal FF) and 
.FALSE, generates a byte in • 
which all bits are 0. 

If logical values are 
used as one-byte integers, the 
rules for use are the same as 
for type INTEGER, except that 
the range allowed is -128 to 
+127, inclusive. 



.TRUE. 
.FALSE. 



LITERAL 



In the literal form, any 
number of characters may be 
enclosed by single quotation 
marks. The form is as follows 



•X1X2X3...Xn* 

where each Xi i 
ter other than 
quotation marks 
may be used to 
quotation mark 
within the stri 
if X2 is to be 
mark character, 
appears as the 

'XV 'X3...Xn' 



s any charac- 
1 . Two 

in succession 
represent the 
character 
ng, i.e., 
the quotation 

the string 
following: 



HEXADECIMAL 



1. The letter Z or X 
followed by a single quote 
up to 4 hexadecimal 



2' 12' 

X'ABIF' 
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digits (0-9 and A-F) and a Z'FFFF 1 

single quote is recognized 

as a hexadecimal value. A ,r 

2. A hexadecimal constant is 
right justified in its storage 
value. 
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3.3 VARIABLES 



Variable data are identified in FORTRAN statements 
by symbolic names. The names are unique brings of 
fro m 1 to i alphanumeric characters of which the 
first is a letter. 



i /■-> 



NOTE 



System variable names and *«"*"• 
.Sbprogram names are distinguished from 

iuu^w*)* mtmm ,^ tm -in that they begin 
other variable names in »** y<\ it is 
with the dollar sign character ($). It is 

therefore strongly . reco ™ en *** **** •* 
order to avoid conflicts, fV^ 01 " «* me » "^ 
FORTRAN source programs begin witn some 
letter other than "$". 

Examples: 

15, TBAR, B23, ARRAY, XFM79, MAX, AUC 

., -.wi. a*** *re classified into four types: 
INTE^R? t£l. "oUBLE "rIcISION and LOGICAL The 
.pecificatlorof type i. accomplished in one of the 
following ways: 

1 . implicit typing in which the first letter of 
Spe.^ess .^liciriy lfl typed In 1?. below, 

n^« beginning 'with letters other than I. J. 
K, L, M or N represent Real variables. 

Integer Variables 

ITEM 
J1 

MODE 
K123 

N2 : 



FORTRAN-80 Reference Manual Page 20 

Real Variables (* 



BETA 

H2 

ZAP 

AMAT 

XID 



2. Variables may be typed explicitly. That is, 
they may be given 3 particular type without 
reference to the fir3t letters of their names. 
Variables may be explicitly typed as INTEGER, 
REAL, DOUBLE PRECISION or LOGICAL. The 
specific statements used in explicitly typing 
data are described in Section 6. 



Variable data receive' their numeric value assignments during 
program execution or, initially, in a DATA statement 
(Section 6) . 

Hollerith or Literal data may be assigned to any type 
variable. Sub-paragraph 3.6 contains a discussion of 
Hollerith data storage. 

3.4 ARRAYS AND ARRAY ELEMENTS 

An array is an ordered set of data characterized by 
the propertv of dimension. An array may have 1, 2 
or 3 dimensions and is identified and typed by a 
symbolic name in the same manner as a variable 
exceot that an array name must be sc declared by an 
"array declarator." Complete discussions of tne 
array declaiators appear in Section 6 of this 
manual. An array declarator also indicates the 
dimensionality and size of the array. An array 
element is one member of the d-dta set that makes up 
an array. Reference tc an array element m a 
FORTRAN statement is T.ade by appending a subscript 
to tr.p array name. The term array element is 
synonymous with the term subscripted variable used 
in some FORTRAN texts and reference manuals. 

An initial value may be assigned to any arra Y 
element bv a DATA statement or its value may be 
- derived and defined during program execution. 



3 . 5 SUBSCRIPT S 

A subscript follows an array name to uniquely 



v> 
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identify an array element. In use, a subscript in 
a FORTRAN statement takes on the same 
representational meaning as a subscript in familiar 
algebraic notation. 

Rules that govern the use of subscripts are as 
follows: 

1. A subscript contains 1 , 2 or 3 subscript 
expressions (see 4 below) enclosed in 
parentheses. 

2. If there are two or three subscrip * • x P""j°"5 
within the parentheses, they must be separated 

by commas . 

3. The number of subscript expressions must be the 
same as the specified dimensionality of the 
Ar^ay Declarator except in EQUIVALENCE 
statements (Section 6). 

4. A subscript expression is written in one of the 
following forms: 

K C*V V-K 
V C*V+K C*V-K 
V+K 

where C and K are integer constants' and v is an 
integer variable name (see Section 4 for a 
discussion of expression evaluation). 

5. Subscripts themselves may not be subscripted. 
Examples: 

XUM-3.7) AU.J.K) 1(20) C(t-2) V(I) 



3.6 DATA STORAGE ALLOCATION 

Allocation of storage for FORTRAN f*« is made in 
numbers of storage units , A storage unit is tne 
memory .pace required to store one real data value 
(4 bytes) . 

Table 3-2 defines the word formats of the three 
data types. 

Hexadecimal data may be associated (via a DATA 
statement) with any type data. Its st° ra ? e 
allocation is the same as the associated datum. 

Hollerith or literal data may be « s °^ a Urat=n 
any data type by use of DATA initial** 
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statements (Section 6) • 

Up to eight Hollerith characters may be associated 
with Double Precision type storage, up to four with 
Real, up to two with Integer and one with Logical 
type storage. 



j 
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LOGICAL 



TABLE 3-2. STORAGE ALLOCATION BY DATA TYPES 

ALLOCATION 

2 bytes/ 1/2 storage unit 

S Binary Value 

Negative numbers are the 2's complement of 
positive representations. 

1 byte/ 1/4 storage unit 

Zero (false) or non-zero (true) 

A non-zero valued byte indicates true (the 
logical constant .TRUE. is represented by 
the hexadecimal value FF) . A zero valued 
byte indicates false. 

• When used as an arithmetic value, a Logical 
datum is treated as an Integer in the range 
-128 to +127. 



REAL 



4 bytes/ 1 storage unit 



Characteristic 
Mantissa 



S Mantissa 
(continued) 



The first byte is the characteristic 
expressed in excess 2C0 (octal) notation; 
i.e., a value of 200 (octal) corresponds to a 
binary exponent of 0. Values less than 200 
(octal) correspond to negative exponents, and 
values greater than 200 correspond to 
positive exponents. By definition, if the 
characteristic is zero, the entire number is 
zero. 

The next three bytes constitute the mantissa. 
The mantissa is always normalized such that 
the high order bit is one, eliminating the 
need to actually save that bit. The high bit 
is used instead to indicate the sign of tne 
number. A one indicates a negative number, 
and zero indicates a positive number. Tne 
mantissa is assumed to be a binary *« ct *?" 
whose binary point is to the left or tne 
mantissa. 
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DOUBLE 
PRECISION 



8 bytes/ 2 storage units 

The internal form of Double Precision data is 
Tne inietnfli jwi « o e »l data except 

identical with that of ^ai "" • * 
Double Precision uses 4 extra bytes ror 
matissa. 



the 
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SECTION 4 
FbRTRAN EXPRESSIONS 



A FORTRAN expression is composed of a single operand or a 
string of operands connected by operators. Two expression 
types —Arithmetic and Logical— are provided by FORTRAN. 
The operands, operators and rules of use for both types are 
described in the following paragraphs. 

4.1 ARITHMETIC EXPRESSIONS 

The following rules define all permissible 
arithmetic expression forms: 

1. A constant, variable name, array element 
reference or FUNCTION reference (Section 9) 
standing alone is an expression. 

Examples ; 

S(I) JOBNO 217 17.26 SQRT(A+B) 

2. If E is an expression whose first character is 
not an operator, then *E and -E are called 
signed expressions. 

Examples 

-S + JOBNO -217 +17,26 -SQRT(A+B) 

3. Xf E is an expression, then (E) means the 
quantity resulting when Z is evaluated. 

Examples: 
<-A) -(JOBNO) -(X+1) (A-SQRT(A+B) ) 

4. If E is an unsigned expression and F is any 
expression, then: F+E, F-E, F*E, F/E and F**E 
are all expressions. 

Examples: 

-(B(I,J)+SQRT(A+B(K,L) ) ) 

1.7E-2**(X+5.0) 

-(B(I*3,3*J+5)+A) 
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5. An evaluated expression may be Integer, Real 
Double Precision, or logical. The type i 
determined by the data types of ^elements of 
the expression. If the eiein ~ nt * _ the 
expression are not all of the /«•£§•' the 
type of the expression is deterndn ^ by t ^ 
element having the highest type. The type 
hierarchy (highest to lowest) ^*^£ oiiOWS - 
DOUBLE PRECISION, REAL, INTEGER, LOGICAL. 

6. Expressions may contain nested parenthesized 
elements as in the following: 

A*(Z-((Y+X)/T))**J 

where Y+X is the innermost •!•»«*, ^ext! In 
the next innermost, z ' ^ Y ^ ] Cl\^t n to see 
such expressions, care should be taken to see 
™tt Se number of left parentheses and the 
number of right parentheses are equal. 

4.2 EXPRESSION EVALUATION 

Arithmetic expressions are evaluated according to 
the following rules: 

1 Parenthesized expression elements are evaluated 
1 ' fi"? If Parenthesized elements are nested 

the innermost elements are evaluated, then the 
n^xt innermost until the entire expression has 
been evaluated. 

2 Within parentheses and/or wherever parentheses 
2 - do not* govern the order or evaluation the 

hierarchy of operations in order of precedence 
is as follows: 

a. FUNCTION evaluation 

b. Exponentiation 

c. Multiplication and Division 

d. Addition and Subtraction 

Example: 

The expression 

A*(Z-((*+R)/T))**J+VAL 
is evaluated in the following sequence: 
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Y+R - e1 
(eD/T » e2 
Z-e2 » e3 
e3**J - e4 
A*e4 « e5 
e5+VAL ■••6 



3. The expression X**Y**Z is not allowed. It 
should be written as follows: 

(X**Y)**Z or X**(Y**2) 



4. Use of an array element reference requires the 
•valuation of its subscript. Subscript 
expressions are evaluated under the same rules 
as other expressions. 



4.3 LOGICAL EXPRESSIONS 

A Logical Expression may be any of the following: 

1. A single Logical Constant (i.e., .TRUE. or 
.FALSE.), a Logical variable, Logical Array 
Element or Logical FUNCTION reference (see 
FUNCTION, Section 9). 

2. Two arithmetic expressions separated by a 
relational operator (i.e., a relational 
expression) . 

3. Logical operators acting upon logical 
constants, logical variables, logical array 
elements, logical FUNCTIONS, relational 
expressions or other logical expressions. 
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The value of a logical expression is always either 
.TRUE. or .FALSE. 

4.3.1 RELATIONAL EXPRESSIONS 

The general form of a relational expression is as 
follows: 

e1 r e2 
where e1 and e2 are ^i^hinetic expressions and r is 
a r elational operator. The six relational 
operators are as follows: 

.LT. Less Than 

.LE. Less than or equal to 

.EQ. Equal to 

.NE. Not equal to 

.GT. Greater than • 

,GE. Greater than or equal to 

The value of the relational expression is •™JIS. 
if the condition defined by the operator is met. 
Otherwise, the value is .FALSE. 

Examples: 

A EO B 
(A**J) .GT. (ZAP* (RHO*TAU-ALPH) ) 

4.3.2 LOGICAL OPERATORS 

Table 4-1 lists the logical operations. U and V 
denote logical expressions. 
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Table 4-1. Logical Operations 



.NOT.U The value of this expression is the 

logical complement of U (i.e., 1 
bits become and bits become 1). 

U.AND.V The value of this expression is the 

logical product of U and v u.e., 
there is a 1 bit in the result only 
where the corresponding bits in both 
U and V are 1. 

OR.V The value of this expression is the 

logical sum of U and V (i.e., there 
is a 1 in the -result ir the 
corresponding bit in U or V is 1 or 
if the corresponding bits in botn u 
and V are 1. 

u xOR V The value of this expression is the 
U,X0R ^ exclusive OR of U and V (i.e., there 

is a one in the result if the 
corresponding bits in U and V are i 
and or and 1 respectively. 



Examples : 



If u - 01101100 and V * 11001001 , then 

.NOT.U ■ 10010011 
U.AND.V • 01001000 
U.OR.V - 11101101 
U.XOR.V - 10100101 
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The following are additional considerations for 
construction of Logical expressions: 

1. Any Logical expression may be wclo.ed in 

parentheses. However, a J * 1 "* •3""if n be 
which the .NOT. operator is «£"* * u " ~ 
enclosed in parentheses xf it contains two or 

more elements. 

2. in the hierarchy of operations, P a "^ hc " s Jf* 
be used to specify the ordering of the 
expression evaluation/ ^thin parentheses and 
where parentheses do not dictate « va ^ation 
order, the order is understood to be as 
follows: 

a. FUNCTION Reference 

b. Exponentiation (•*) , 

c. Multiplication and Division ( and /) 

d. Addition and Subtraction (+ and -) 

e. .LT., .LE., .EQ., .NE. , .GT., .GE. 

f. .NOT. 

g . . AND • 

h. .OR., .XOR. 

Examples: 

The expression 

X .AND. Y .OR. B(3,2> .GT. Z 

is evaluated as 

e1 - B(3,2) .GT.Z 
e2 - X .AND. Y 
e3 - e2 .OR. e1 

The expression 

X .AND. (Y .OR. B(3,2) .GT. Z) 
is eva-luatei as 

e1 - B(3,2) .GT. Z 
e2 • Y .OR. e1 
e3 - X .AND. e2 



3. 



it is invalid to have two contiguous logical 
It is in vaiAU uw . second operator is 

operators except when the secona op« 

.NOT. 
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That is, 

.AND.. NOT. 
and 

.OR.. NOT. 
are permitted. 
Example: 

A. AND.. NOT. B is permitted 

A. AND.. OR. B is not permitted 

4.4 HOLLERITH, LITERAL, AND HEXADECIMAL CONSTANTS IN 

EXPRESSIONS 

Hollerith, Literal, and Hexadecimal constants are 
allowed in expressions in place of Integer 
constants. These special constants always evaluate 
to an Integer value and are therefore limited to a 
length of two bytes. The only exceptions to this 
are: 

1. Long Hollerith or Literal constants may be used 
as subprogram parameters. 

2. Hollerith, Literal, or Hexadecimal constants 
may be up to four bytes long in DATA statements 
when associated with Real variables, or up to 
eight bytes long when associated with Double 
Precision variables. 



--- - ~? 
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SECTION 5 
REPLACEMENT STATEMENTS 



Replacement statements define computations and are used 
similarly to equations in normal mathematical notation. 
They are of the following form: 



where v is any variable or array element and e is an 
expression. 

FORTRAN semantics defines the equality sign («) as meaning 
to be replaced by rather than the normal is equivalent to. 
fKus— the object program instructions generated by a 
replacement statement will, when executed, / v ^ uat %^ 
expression on the right of the equality sign and place that 
result in the storage space allocated to the variable or 
array element on the left of the equality sign. 

The following conditions apply to replacement statements: 

1. Both v and the equality sign must ?PP* ar ^.^ 
same line. This holds even when the statement is 
part of a logical IF statement (section 7). 

Example: 

C IN A REPLACEMENT STATEMENT THE '-' 
C MUST BE IN THE INITIAL LINE. 

AC5 ' 31 " 
1 Bt7,2) + SIN(C) 

The line containing v- must be the initial line of 
the statement unless the statement is part of a 
logical IF statement. In that case the v- must 
occur no later than the end of the first line after 
the end of the IF. 

o if th* data tvoes of the variable, v, and the 

2. II tne data types «* ,. ffprent tnen the value 
expression, e, are different, tn ®" ™ . if 
determined by the expression will b * co ?^**' lQ f 
possible, to conform to the typing of the variab le^ 
Table 5-1 shows which type e ^ ess ?; on * ^ es * 
equated to which type of variable. Y indicates a 
valid replacement and N indicates » n *J£*^ 
replacement. Footnotes to Y indicate conversion 
considerations. 
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Table 5-1. Replacement By Type 



Variable 
Types 



Integer 
Real 
Logical 
Double 



Expression Types (e) 



Integer 



y 

Yc 

Yd 
Yc 



Real 



Ya 
Y 
Ya 
Y 



Logical 



Yb 
Yc 
Y 

Yc 



Double 



Ya 
Ye 
Ya 
Y 



.. The Real expression value is converted to Xnt.ger, 
truncated if necessary to conform to the range o 

h nt8 The siQn'is extended through the second byte. 

c' ?he variaMe is assigned the Real approximation of 

the integervalue of the expression^ ^^ Qf thfi 

Snte^r ^e^on"* C?nf ^-orSr byt. is used, 

. rC9a The e "r!ab g le 9 i.-»signed the rounded value of the 
Real expression. 



<€ .> 
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SECTION 6 
SPECIFICATION STATEMENTS 

Specification statements are non-executable, non-generative 
statements which define data types of "?i*£* d £2 £*£■; 

specify array dimensionality and size, allocate data storage 
or otherwise supply determinative information to the FORTRAN 
processor. DATA intialization statements are 
non-executable, but generate object program data and 
establish initial values for variable data. 

6.1 SPECIFICATION STATEMENTS 

There are six kinds of specification statements. 
Theyare as follows: 

Type, EXTERNAL, and DIMENSION statements 

COMMON statements 

EQUIVALENCE statements 

DATA initialization statements 

All specification statements are - grouped at the 
beqinning of a program unit and must be ordered as 
^appear abovS. Specification statements may be 




pre 

executable statement. 



6.2 ARRAY DECLARATORS 



Three kinds of specification » t *«»2^" ~ y a *^ C tSa 

array declarators. These statements are tne 

following: 

Type statements 
DIMENSION statements 
COMMON statements 

Of these., DIMENSION statements have the de =1*™^ 
of arrays as their sole function. The other two 
serve dual purposes. These statements are defined 
in subparagraphs 6.3, 6.5 and 6.6. 

Array declarators are used "specify the name 
dimensionality and sizes of arrays. An array may 
be declared only once in a program unit. 
An array declarator has one of the following" forms : 
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ui (k) 

ui (k1,k2) 

ui Ck1,k2,k3) 

where ui is the name of the array, called the 
declarator name, and the k's are integer constants. 

Array storage allocation is established upon 
appearance of the array declarator. Such storage 
is allocated linearly by the FORTRAN processor 
where the order of ascendancy is determined by the 
first subscript varying most rapidly and the last 
subscript varying least rapidly. 

For example, if the array declarator AMATt3,2,2) 
appears, storage is allocated for the 12 elements 
in the following order: 

AMAT (1,1,1), AMATC2,1,1), AMAT(3,1,D, AMAT (1,2,1), 
AMAT(2,2,1), AMATt3,2,1), AMAT(1,1,2), AMAT 2 , 1 , 2 , 
AMATI3,1,2), AMATU,2,2), AMATC2,2,2), AMAT(3,2,2) 

6.3 TYPE STATEMENTS 

Variable, array and FUNCTION names are 

automatically typed Integer or Real by the 

^ *s 'predefined 1 convention unless they are changed by 

Type statements. For example, the type is Integer 
if the first letter of an item is I, J, K, L, M or 
N. Otherwise, the type is Real. 

Type statements provide for overriding or 
confirming the pre-defined convention by specifying 
the type of an item. In addition, these statements 
may be used to declare arrays. 

Type statements have the following general form: 
t v1,v2,...vn 

where t represents one of the terms INTEGER, 
INTEGER* 1, INTEGER* 2, REAL, REAL* 4, REAL* 8, DOUBLE 
PRECISION, LOGICAL, LOGICAL*!, L0GICAL*2, or BYTE. 
Each v is an array declarator or a varia 5i® ' fi*? 7 
or FUNCTION name! The INTEGER* 1, INTEGER*2, 
REAL* 4, REAL* 8, LOGICAL* 1 , and LOGICAL*? types are 
allowed for readability ,^* ^^^J** W a !"d 
Other FORTRANs. BYTE, INTEGER* 1, LOGICAL* 1, and 
LOGICAL are all equivalent; | INTEGER*2, LOGICAL* 2, 
and INTEGER are equivalent; REAL and REAL 4 are 
equivalent; DOUBLE PRECISION and REAL* 8 are 
* equivalent. 
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Example: 

REAL AMAT(3,3,5) ,BX,IETA,KLPH 



NOTE 

1. AMAT and BX are redundantly typed. 

2. IETA and KLPH are unconditionally 
declared Real. 

3. AMAT(3,3,5) is a constant array 
declarator specifying an array of 4 5 
elements. 



Example; 

INTEGER M1, HT, JMP(15), FL 

NOTE 

M1 is redundantly typed here. Typing of HT 
and FL by the pre-defined convention is 
overridden by their appearance in the 
INTEGER statement. JMP(15) is a constant 
array declarator. It redundantly types the 
array elements as Integer and communicates 
to the processor the storage requirements 
and dimensionality of the array. 



Example; 

LOGICAL LI, TEMP 



NOTE 



All variables, arrays or FUNCTIONS required 
to be typed Logical must appear in a 
LOGICAL statement, since no starting letter 
indicates these types by the default 
convention. 
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6.4 EXTERNAL STATEMENTS 

EXTERNAL statements have the following form: 

EXTERNAL u1,u2,...,un 

where each ui is a SUBROUTINE, BLOCK DATA or 

FUNCTION name. When the name of a subprogram is 

used as an argument in a subprogram reference, it 

must have appeared in a preceding EXTERNAL 
statement. 

When a BLOCK DATA subprogram is to be included in a 
program load, its name must have appeared in an 
EXTERNAL statement within the main program unit. 

For example, if SUM and AFUNC are subprogram names 
to be used as arguments in the subroutine SUBR, the 
following statements would appear in the calling 
program unit: 



EXTERNAL SUM, AFUNC 



CALL SUBR(SUM, AFUNC, X,Y) 

6.5 DIMENSION STATEMENTS 

A DIMENSION statement has the following form: 

DIMENSION u2,u2,u3,... ,un 
where each ui is an array declarator. 

Example: 

DIMENSION RAT(5,5) ,BAR(20) 

This' statement declares two arrays - the 25 element 
array RAT and the 20 element array BAR. 

6.6 COMMON STATEMENTS 

COMMON statements are non-executable, storage 

allocating statements which assign variables and 

arrays to a storage area called COMMON storage and 

V • provide the facility for various program units to 

== share the use of the same storage area. 
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COMMON statements are expressed in the following 
form: 

COMMON /Y1/Al/Y2/A2/.../Yn/An 

where each Yi is a COMMON block storage name and 
each Ai is a sequence of variable names, array 
names or constant array declarators, » e P a 5 at ** J?* 
commas. The elements in Ai make up the COMMON 
block storage area specified by the name Yi. It 
any Yi — liomTtted leaving two consecutive slash 
characters (//) , the block of storage so indicated 
is called blank COMMON. If the first block name 
(YD is omitted, the two slashes may be omitted. 

Example: 

COMMON /AREA/A,B,C/BDATA/X,Y,Z, 
X FL,ZAP(30) 

In this example, two blocks of COMMON- storage are 
allocated - AREA with space for three variables and 
BDATA, with space for four variables and the 30 
element array, ZAP. 

Example 

COMMON //Al,B1/CDATA/ZOT(3 f 3) 
X //T2,Z3 

In this example, A1 , B1 , T2 and Z3 are ass ^ n ^ t° 
blank COMMON in that order. The pair of slashes 
preceding A1 could have been omitted. 

CDATA names COMMON block storage for the nine 
element array, ZOT and thus ZOT (3,3) is an array 
declarator. ZOT must not have been previously 
declared. (See " ir Ar"ray Declarators," Paragraph 
5737T 

Additional Considerations: 

1 The name of a COMMON block may appear more than 
once in the same COMMON statement, or in more 
than one COMMON statement. 

2. A COMMON block name is made up of from 1 to 6 
alphanumeric characters, the first of which 
must be a letter. 

3 A COMMON block name must be different from any 
subprogram names used throughout the program. 



i 
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4. The size of a COMMON area may be increased by 
the use of EQUIVALENCE statements. See 
"EQUIVALENCE Statements," Paragraph 6.7. 

5. The lengths of COMMON blocks of the same name 
need not be identical in all program units 
where the name appears. However, if the 
lengths differ, the program unit specifying the 
greatest length must be loaded first (see the 
discussion of LINK-80 in- the User's Guide). 
The length of a COMMON area is the number of 
storage units required to contain the variables 
and arrays declared in the COMMON statement (or 
statements) unless expanded by the use of 
EQUIVALENCE statements. 

6.7 EQUIVALENCE STATEMENTS 

Use of EQUIVALENCE statements permits the sharing 
of the same storage unit by two or more entities. 
The general form of the statement is as follows: 

* EQUIVALENCE (u1 ) , (u2) , . . . , (un) 

where each ui represents a sequence of two or more 
variables or array elements, separated by commas. 
Each element in the sequence is assigned the same 
storage unit (or portion of a storage unit) by the 
processor. The order in which the elements appear 
is not significant. 

Example; 

EQUIVALENCE (A,B,C) 

The variables A, B and C will share the same 
storage unit during object program execution. 

If an array «-lement is used in an EQUIVALENCE 
statement, the number of subscripts must be the 
same as the number of dimensions established by the 
array declarator, or it must be one, where the one 
subscript specifies the array element's number 
relative to the first element of the array. 

Example: 

If the dimensionaliity of an •"■*•*• ^atemen? 
declared as 2(3,3) then in a^ EQUIVALENCE statement 
2(6) and 2(3,2) have the same meaning. 



3. 
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Additonal Considerations; 

1. The subscripts of array elements must be 
integer constants. 

2. An element of a multi-dimensional array may be 
referred to by a single subscript, if desired. 

Variables may be assigned to a COMMON block 
through EQUIVALENCE statements. 

Example: 

COMMON /X/A,B,C 
EQUIVALENCE (A,D) 

. • *.u* tnrishUs A and D share the 
In this case, the variab i«* A *"" 
first storage unit in COMMON block X. 

4. EQUIVALENCE statements can ^"J** ^Mnt by 
» feloeic indicated by a COMMON statement Dy 
tdd"g Sore elements to the end of the block. 

Example; 

DIMENSION R(2,2) 
COMMON /Z/W,X,Y 
EQUIVALENCE (Y,R(3)) 

The resulting COMMON block will have the 
following configuration; 

Variable Storage Unit 

W - L(1,D 

X - R(2,1) 1 

Y - Rd,2) 2 

R(2,2) 3 

The COMMON block established by the COMMON 
statement contains 3 stor ^^^IVA^ENcl 
expanded to 4 storage units by the equiva- 

statement. 

COMMON block size ™ay be increased only from 

the last element establisnea Dy »« ement 

Statement forward; not from its first element 

backward. 

No te that EQUIVALENCE (X.R(3>> would b. invalid 

in the example. T ^, t L T ment in the 
established W as the first^ e ^ n ^ nd R(3) 

COMMON block and an attempt to make X and i 

equivalent would be an attempt to make Ri 
first element. 



FORTRAN-80 Reference Manual Pa 9e 41 

5. It ii invalid to EQUIVALENCE two elements of 
the same array or two elements belonging to the 
same or different COMMON blocks. 



Example; 



\ \ 



DIMENSION XTABLE (20), D(5) 
COMMON A,B(4)/ZAP/C,X 



EQUIVALENCE (XTABLE (6),A(7) 
X B(3) , XTABLE (5)) , 

y (B(3),D(5)) 



\ 



v 



I 



/ • 



^V This EQUIVALENCE statement has "the following 

errors: 

1. It attempts to EQUIVALENCE two elements of the 
same array, XTABLE(6) and XTABLE (15). 

' 2. It attempts to EQUIVALENCE two elements of the 

same COMMON block, A (7) and B(3). 

3. Since A is not an array, A(7) is an illegal 
reference. 

4. Making B(3) equivalent to 0(5) extends COMMON 
backwards from its defined starting point. 

6.8 DATA INITIALIZATION STATEMENT 

The DATA initialization statement is a 
non-executable statement which provides a means 
compiling data values into the object P ro ^ am *£° 
assigning these data to variables and array 
elements referenced by other statements. 

The statement is of the following form: 

DATA list/u1 ,u2 , . . . ,un/,list. . ./uk,uk+1 , . . .uk+n/ 

where "list" represents a list of variable, «ray 
or array element names, and the ui are constants 
corresponding in number to the •!•"•"*■"*£ 
list. An exception to the one-for one 
correspondence of list items to constants -is that 
an array name (unsubscripted) may appear in the 
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list, and as many constants as necessary to till 
the array may appear in the corresponding position 
between slashes. Instead of ui, it is permissible 
to write k*ui in order to declare the same 
constant, ui, k times in succession, k must be a 
positive integer. Dummy arguments may not appear 
in the list. 

Example: 

DIMENSION C(7) 
DATA A, B, C(1),C(3)/14.73, 
X -8.1,2*7.5/ 

This implies that 

A-14.73, B— 8.1, CCU-7.5, C(3J-7.5 

The type of each constant ui must match the type of 
the corresponding item in the list, ex "Pt that a 
Hollerith or Literal constant may be paired with an 
item of any type. 

When a Hollerith or Literal constant is used, the 
. £um£er of characters in its string should be no 
greater than four times the number of storage units 
required by the corresponding item, i.e., i 
character for a Logical variable, up to 2 
characters for an Integer variable and 4 or fewer 
characters for a Real variable. 

If fewer Hollerith or Literal J^aracters are 
specified, trailing blanks are added to fill the 
remainder of storage. 

Hexadecimal data are stored in a similar f * s ^' 
If fewer Hexadecimal characters •«"£*; 
sufficient leading zeros are added to fill the 
remainder of the storage unit. 

The examples below illustrate many of the features 
of the DATA statement. 
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DIMENSION HARY (2) 
DATA HARY,B/ 4HTHIS, 4H OK 
1 ,7.86/ 



REAL LIT (2) 

LOGICAL LT,LF 

DIMENSION H4(2,2),PI3(3) 

DATA A1,B1,K1,LT,LF,H4(1,1) ,H4(2,1) 

1 H4(1,2) ,H4(2,2) ,PI3/5. 9 , 2. 5E-4 , 

2 64,. FALSE.,. TRUE. ,1.75E-3, 

3 0.85E-1,2*75.0,1.,2.,3.14 159/ 

4 LITCD/'NOGOV 



L 
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SECTION 7 
FORTRAN CONTROL STATEMENTS 

FORTRAN control statements are executable statements which 
affect and guide the logical flow of a FORTRAN program. The 
statements in this category are as follows: 

1. GO TO statements: 

1. Unconditional GO TO 

2. Computed GO TO • 

3. Assigned GO TO 



2. 


ASSIGN 


3. 


IF statements: 




1. Arithmetic IF 




2, Logical IF 


4. 


DO 


5. 


CONTINUE 


6. 


STOP 


7. 


PAUSE 


8. 


CALL 


9. 


RETURN 



When statement labels of other statements «• a Pj£ oc ?f t , 

control statement, such statement labels m ^* ** * S *°^ 
with executable statements within the same program unit . 



of a 
,ed 

with executab." 

which the control statement appears. 



7.1 GO TO STATEMENTS 
7.1.1 UNCONDITIONAL GO TO 




whenever 
ally to 



""V 



V. 
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The statement is of the following form: 
GO TO k 

where k is the statement label of an executable 
statement in the same program unit. 

Example; 

GO TO 376 
310 A(7) - V1 -A(3) 

• 

376 A (2) -VECT 
GO TO 310 

In these statements, statement 376 is ahead of 
statement 310 in the logical flow of the program of 
which they are a part. 

7.1.2 COMPUTED GO TO 

Computed GO TO statements are of the form: 
GO TO (Jc1 ,Jc2,.. .#n) ,j 

where the ki are statement labels, and j is an 
integer variable, 1 < j < n. 

This statement causes transfer of control to the 
statement labeled kj. If j < 1 or j > n, control 
will be passed to the next statement following the 
Computed GOTO. 

Example: 

J- 3 



GO TO(7, 70, 700, 7000, 70000), J 
310 J-5 , 

GO TO 325 

When J - 3, the computed GO TO transfers control to 
statement 700. Changing J to equal 5 changes the 
transfer to statement 70000. : Making J - or J - 6 
would cause control to be transferred to statement 
310. i 

\ 

7.1.3 ASSIGNED GO TO 

Assigned GO TO statements are' of the following 
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form: 

GO TO j, (k1,k2,... ,kn) 

or 
GOTO J 

where J is an integer variable name, and the lei are 
statement labels of executable statements. This 
statement causes transfer of control^ to the 
statement whose label is equal to the current vaiue 
of J. 

Qualifications » 

1. The ASSIGN statement must logically precede an 
assigned GO TO. 

2. The ASSIGN statement must assign ^a va * u * ^ £ 
which is a statement label included m the list 
of k*s, if the list is specified. 

Example: 

GO TO LABEL, (80,90, 100) 

Only the statement labels 80, 90 or 100 may be 
assigned to LABEL. 

7.2 ASSIGN STATEMENT 

This statement is of the following form: 

ASSIGN j TO i 

. . -*..*.*•«*«♦- label of an executable 
where j is a statement laoex ^ B " 

statement and i is an integer variable. 

The statement is used in conjunction with each 

i«sianed GO TO statement that contains the integer 

*tl£?* i When the assigned GO TO is executed, 

variable 1. wnen we ""' , «._ «. h- statement 

control will be transferred to the statement 

labeled j. 
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Example; 

ASSIGN 100 TO LABEL 



ASSIGN 90 TO LABEL 

GO TO LABEL, (80,90,100) 

7.3 IF STATEMENT 

IF statements transfer control to one of a ser j^ s 
of statements depending upon a condition. Two 
types of IF statements are provided: 

Arithmetic IF 
Logical IF 

7.3.1 ARITHMETIC IF 

The arithmetic IF statement is of the form: 
IF(e) m1,m2,m3 

where e is an arithmetic expression and ml , m2 and 
m3 are statement labels. 

Evaluation of expression e determines one of three 
transfer possibilities: 

If « is: Transfer to: 
< ml 

■ 8*2 

> m3 

Examples : 

Statement Expression Value Transfer tc 



5 

73 

7 



IF (A)3,4,5 ^5 

IF (N-l)50,73,9 

IF (AMTX(2,1,2))7,2,1 -256 

7.3.2 LOGICAL IF 

The Logical" IF statement is of the form: 

t 

IF (u)s 

where u is a Logical expression and s is any 
executable statement except a DO st *^ e ?* f*** 
7.4) or another Logical IF statement. The Logical 
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expression u is evaluated as .TRUE, or .FALSE. ^ 
Section 4 contains a discussion of Logical 
expressions. 

Control Conditions: 

If u is FALSE, the statement s is ignored and 
control goes to the next statement following the 
Logical IF statement. If, however, the expression 
is TRUE, then control goes to the statement s, ana 
subsequent program control follows normal 
conditions. 

If s is a replacement statement (v - e, Section 5) , 
the variable and equality sign (-) must be on the 
same line, either immediately f°l^ w ^ ??«• «L22 
a separate continuation line with the line spaces 
following IF(u) left blank. See example 4 below. 

Examples ; 

1. IF(I.GT.20) GO TO 115 

2. IF(Q.AND.R) ASSIGN 10 TO J 

3. IF(2) CALL DECL(A,B,C) ! 

4. IF (A.OR.B.LE.PI/2) I-J 

5. IF (A.OR.B.LE.PI/2) 
X I-J 

7.4 DO STATEMENT 

The DO statement, as implemented in F0 *™^' 
provides a method for repetitively «* ec ^ in 9 * 
series of statements. The statement takes of one 
of the two following forms: 

1) DO k i - ml ,m2,m3 

or 

2 ) DO k i « m 1 , m2 

where k is a statement label, i is an integer or 
logical variable, and ml , m2 and m3 are integer 
constants or integer or logical variables. 

If m3 is 1, it may be omitted as in 2) above. 

The following conditions and restrictions govern 
the use of DO statements: 
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1. The DO and the first comma must appear on the 
initial line. 

2. The statement labeled k, called the terminal 
statement, must be an executable statement. 

3. The terminal statement must physically follow 
its associated DO, and the executable 
statements following the DO, up to and 
including the terminal statement, constitute 
the range of the DO statement. 

4. The terminal statement may not be an Arithmetic 
IF, GO TO, RETURN, STOF; PAUSE or another DO. 

5. If the terminal statement is a logical IF and 
its expression is .FALSE., then the statements 
in the DO range are reiterated. 

If the expression is .TRUE., the statement of 
the logical IF is executed and then the 
statements in the DO range are reiterated. The 
statement of the logical IF may not be a GO TO, 
Arithmetic IF, RETURN, STOP or PAUSE. 

6. The controlling integer variable, i, is called 
the index of the DO range. The index must be 
positive and may not be modified by any 
statement in the range. 

7. If ml , m2, and m3 are Integer* 1 variables or 
constants, the DO loop will execute faster and 
be shorter, but the range is limited to 127 
iterations. For example, the loop overhead for 
a DO loop with a constant limit and an 
increment of 1 depends upon the type of the 
index variable as follows: 

Index Variable Overhead 

Type Microseconds Bytes 

INTEGER* 2 35.5 19 

INTEGER* 1 24 14 

8. During the first execution of the statements in 
the DO range, i is equal to ml ; the second 
execution, i ■ m1+m3; the third, i-m1*2*m3, 
etc., until i is equal to the highest value in 
this sequence less than or equal to m2 , and 
then the DO is said -to be satisfied. The 
statements in the DO range will always be 
executed at least once, even if ml < m2 . 

When the DO has been satisfied, control passes 
to the statement following the terminal 
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statement, otherwise control transfers back to 
the first executable statement following the DO 
statement. 

Example: 

The following example computes 

100 

Sigma Ai where a is a one-dimensional array 

i-1 
100 DIMENSION A(100) 



SUM - A(1) 
DO 31 I - 2,100 
31 SUM -SUM ♦ A(I) 

END 



9. The range of a DO statement may be extended to 
include all statements which may logically be 
executed between the DO and its terminal 
statement. Thus, parts of the DO range may be 
situated such that they are not physically 
between the DO statement and its terminal 
statement but are executed logically in the DO 
range. This is called the extended range. 

Example; 

DIMENSION A(500), B(500) 



DO 50 I - 10, 327, 3 

IF (V7 -C*C) 20,15,31 
30 

50 A(I) - B(I) + C 



20 C - C - .05 
GO TO 50 

31 C-C+ .0125 
GO TO 30 
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10. It is invalid to transfer control into the 
range of a DO statement not itself in the range 
or extended range of the same DO statement. 

11. Within the range of a DO statement, there may 
be other DO statements, in which case the DO s 
roust be nested. That is, if the range of one 
DO contains another DO, then the range of the 
inner DO must be entirely included in the range 
of the outer DO. 

The terminal statement of the inner DO may also 
be the terminal statement of the outer DO. 

For example, given a two dimensional array A of 

15 rows and 15 columns, and a 15 element 

one-dimensional array B, the following 

statements compute the 15 elements of array C 
to the formula: 

15 

Ck -Sigma AkjBm, k » 1,2,... ,15 

DIMENSION A(15,15), B(15), C(15) 



DO 80 K -1 .15 
C(K) ■ 0.0 
DO 80 J«1 ,15 
80 C(K) - C(K) *A(K,J) * B(J) 



7.5 CONTINUE STATEMENT 



CONTINUE is classified as an executable statement. 
However, its execution does nothing. The form or 
the CONTINUE statement is as follows: 



CONTINUE 



CONTINUE is frequently used as the terminal 
statement in a DO statement range when the 
statement which would normally be the terminal 
statement is one of those which are not allowed or 
isonly executed conditionally. 
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Example t 

D05K- 1,10 



IP (C2) 5,6,6 
6 CONTINUE 



C2 - C2 + .005 
5 CONTINUE 



7.6 STOP STATEMENT 

A STOP statement has one of the following forms: 

STOP 
or 

STOP c 
where c is any string of one to six characters. ^ 

When STOP is countered during T (ifpresent) are 
obiect program, the characters c lit p««^' 
displayed on the operator control console and 
execution of the program terminates. 

The STOP statement, therefore, constitutes the 
logical end of the program. 

7.7 PAUSE STATEMENT 

A PAUSE statement has one of the following forms: 

PAUSE 

or 

PAUSE c 
where c is any string of up to six characters. 
When PAUSE is enco -tered during execut ion of th. 

object program, the cha ^ te " £ r ;* r console and 

displayed on the operator control conso 

execution of the program ceases. ^> 

The decision to continue .xjcution jf the program 
is not under control of the program. ir 
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is resumed through intervention of an operator 
without otherwise changing the state of the 
processor, the normal execution sequence, following 
PAUSE, is continued. 

Execution mav be terminated by typing a "T" at the 
operator console. Typing any other character will 
cause execution to resume. 



7.8 CALL STATEMENT 

CALL statements control transfers into SUBROUTINE 
subprograms and provide parameters for use by the 
subprograms. The general forms and detailed 
discussion of CALL statements appear in Section 9, 
FUNCTIONS AND SUBPROGRAMS. 



7.9 RETURN STATEMENT 

The form, use and interpretation • of the RETURN 
statement is described in Section 9. 



7.10 END STATEMENT 

The END statement must physically be the last 
statement of any FORTRAN program. It has the 
following form: 

END 

The END statement is an executable statement and 
may have a statement label. It causes a transfer 
of control to be made to the system exit routine 
$EX, which returns control to the operating system. 
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SECTION 8 
INPUT / OUTPUT 

FORTRAN provides a series of statements which define the 
control and conditions of data transmission between computer 
memory and external data handling or mass storage de vice s 
such as magnetic tape, disk, line printer, punched card 
processors, keyboard printers, etc. 

These statements are grouped as follows: 

1. Formatted READ and WRITE statements which cause 
formatted ISTormltion to be transmitted between the 
computer and I/O devices. 

2. Unformatted READ and WRITE statements which 
transmit unformattedbinary data in a form similar 
to internal storage. 

3- Auxiliary I/O statements for positioning and 
demarcation of files. 

4. ENCODE and DECODE statements for transferring data 
between memory locations. 

5. FORMAT statements used in conjunction with 
format ted record transmission, to provide data 
conversion and editing information between internal 
data representation and external character string 
forms. 

8.1 FORMATTED READ/WRITE STATEMENTS 
8.1.1 FORMATTED READ STATEMENTS 

A formatted R£AD statement is used to transfer 
information from an input device to the computer. 

Two forms of the statement are available, as 
follows: 

READ (u,f,ERR»L1,END«L2) k 

or 

READ (u,f,ERR-L1,END-L2) 

where: 



u - specifies a Physical and Logical Unit Number 
and may be either an unsigned integer or 



an 
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integer variable in the range 1 through 255. 
If an Integer variable is used, an Integer 
value must be assigned to it prior to execution 
of the READ statement. 

Units 1, 3, 4, and 5 are preassigned to the 
console Teletypewriter. Unit 2 is preassigned 
to the Line Printer (if one exists). Units 
6-10 are preassigned to Disk Files (see 
Appendix E) . These units, as well as units n 
- 255, may be re-assigned by the user (see 
Appendix B) • 

f - is the statement label of the FORMAT statement 
describing the type of data conversion to be 
used within the input transmission or it may be 
an array name, in which case the formatting 
information may be input to the program at tne 
execution time. (See 8.7.10) 

L1- is the FORTRAN label on the statement to which 
the I/O processor will transfer, control if an 
I/O error is encountered. 

L2- is the FORTRAN label on the statement to which 
the I/O processor will transfer control if an 
End-of-File is encountered. 

k - is a list of variable names, separated by com- 
mas, specifying the input data. 

READ (u,f)k is used to input a number of items, 
corresponding to the names in the list k, from the 
file on logical unit u, and using the FORMAT 
statement f to specify the external representation 
Of these items (FORMAT statements, 8.7) The ERR* 
and END- clauses are optional. If not specified, 
I/O errors and End-of-Files cause fatal runtime 
errors. 

The following notes further define the function of 
the READ (u,f)k statement: 

1 Each time execution of the READ statement 
begins, a new record from the input file is 
read. 

2. The number of records to be input by a single 
READ statement is determined by the list, k, 
and format specification^. 

3 The list k specifies the 'number of items to be 
read from the input file and the locations into 
which they are to be stored. 
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4. Any number of items may appear in a single list 
and the items may be of different data types. 

5. If there are more quantities in an input record 
than there are items in the list, only the 
number of quantities equal to the number of 
items in the list are transmitted. Remaining 
quantities are ignored. 

6. Exact specifications for the list Jc are 
described in 8.6. 

Examples: 

1. Assume that four data entries are punched in a 
card, with three blank columns separating each, 
and that the data have field widths of 3, 4, 2 
and 5 characters respectively starting m 
column 1 of the card. The statements 

R£AD(5,20)K,L,M,N 
20 FORMAT(I3,3X,I4,3X,I2,3X,I5) 

will read the card (assuming the Logical Unit 
Number 5 has been assigned to the card reader) 
and assign the input data to the variables K, 
L, M and N. The FORMAT statement could also be 

20 F0RMAT(I3,I7,I5,I8) 

See 8.7 for complete description of FORMAT 
statements. 

2. Input the quantities of an array (ARRY) : 

R£AD(6,21)ARRY 

Only the name of the array needs to appear in 
the list (se* 3.6). All elements of the array 
ARRY will b£ read and stored using the 
appropriate formatting specified by the FORMAT 
statement labeled 21. 

READ (u,k) may be used in conjunction with a FORMAT 
statement to read H-type alphanumeric data into an 
existing H-type field (see Hollerith Conversions, 

8.7.3). 

For example, the statements 
R£AD(I,25) 



25 FORMAT ( 1 OHABCDEFGHI J) 
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cause the next 10 characters of the file on input 
device I to be read and replace the characters 
ABCDEFGHIJ in the FORMAT statement. 

8.1.2 FORMATTED WRITE STATEMENTS 

A formatted WRITE statement is used to transfer 
information from the computer to an output device. 

Two forms of the statement are available, as 
follows: 

WRITE ( u , f , ERR»L 1 , END-L2 ) k 

or 

WRITE (u,f, ERR-L 1,END-L2) 

where: 

u - specifies a Logical Unit Number; 

f - is the statement label of the FORMAT statement • 
describing the type of data conversion to be 
used with the output transmission. 

LI- specifies an I/O error branch. 

L2- specifies an EOF branch. 

k - is a list of variable names separated by com- 
mas, specifying the output data. 

WRITE <u,f)k is used to output the data «P^ifi«d 
in the list k to a file on logical unit u using the 
FORMAT statement f to specify the external 
fokmai itatcuc.iw *««.. ( «ee FORMAT statements, 
representation of the data (see *uww ?^| n<ft the 
8.7). The following notes further define the 
function of the WRITE statement: 

1 Several records may be output with a single 
WRI?E statement, with the number determined by 
the list and FORMAT specifications. 

2. Successive data are output until the data 
specified in the list are exhausted. 

3 If output is to a device which specifies «ijed 
length records and the data specified in the 
Usfdo not fill the record, the remainder of 
the record is filled with blanks. 
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Example: 

WRITE(2,10)A,B,C,D 

The data assigned to the variables A, B, C and D 
are output to Logical Unit Number 2, formatted 

according to the FORMAT statement labeled 10. 

WRITE (u,f) may be used to write alphanumeric 
information when the characters to be written are 
specified within the FORMAT statement. In this 
case a variable list is not required. 

For example, to write the characters 'H CONVERSION' 

on unit 1 , 

* 

WRITE(1,26) 



26 FORMAT (12HH CONVERSION) 

8.2 UNFORMATTED READ /WRITE 

Unformatted I/O (i.e. without data conversion) is 
accomplished using the statements: 

R£AD(u,ERR-L1,END«L2) k 
WRITE (u,ERR«Ll,END«L2) k 

where: 

u - specifies a Logical Unit Number. 

L1- specifies an I/O error branch. 

L2- specifies an EOF branch. 

k - is a list of variable names, separated by 
commas, specifying the I/O data. 

The following notes define the functions of 
unformatted I/O statements. 

1. Unformatted READ/WRITE statements perform 
memory-image transmission of data with no data 
conversion or editing. 

2. The amount of data transmitted corresponds to 
the number of variables in the list k. 



^<^.'' 
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3. 



4. 



The total length of the list of variable names 
in an unformatted READ must not be longer than 
the record length. If the logical record 
length and the length of the list are the same, 
the entire record is read. If the length of 
the list is shorter than the logical record 
length the unread items in the record are 
skipped. 



The WRITE (a) k 
record. 



statement writes one logical 



5. A logical record may extend across more than 
one physical record. 



8.3 



DISK FILE I/O 



A READ or WRITE to a 
automatically OPENs the 
remains open until closed 
(see Section 8.4) or 
termination. 



disk file (LUN 6-10) 

file for I/O. The file 

by an ENDFILE command 

until normal program 



NOTE 



Exercise caution when doing sequential 
output to disk files. If output is done to 
an existing file, the existing file will be 
deleted and replaced with a new file of the 
same name. 



8.3.1 RANDOM DISK I/O 



SEE ALSO SECTION 3 OF YOUR MICROSOFT FORTRAN USER'S 
MANUAL. 

Some versions "of FORTRAN-80 also provide random 
disk I/O. For random disk access, the record 
number is specified by using the REC«n option in 
the READ or WRITE statement. For example: 

1-10 

WRITE (6,20,R£C«I,ERR«50) X, Y, Z 



This program segment writes record 10 or. LUN 6. If 
a previous record 10 exists,.-it is written over. 



prev: 
If no record 10 exists, the 



file is extended to 
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create one. Any attempt to read a non-existent 
record results in an I/O error. 

In random access files, the record length varies 
with different versions of FORTRAN. See Section 3 
of your Microsoft FORTRAN User's Manual. It is 
recommended that any file you wish to read randomly 
be created via FORTRAN (or Microsoft BASIC) random 
access statements. Files created this way (using 
either binary or formatted WRITE statements) will 
zero-fill each record to the proper length if the 
data does not fill the record. 

Any disk file that is OPENed by a READ or WRITE 
statement is assigned a default filename that is 
specific to the operating system. See also Section 
3 of the FORTRAN User's Manual. 



8.3.2 OPEN SUBROUTINE 

Alternatively, a file may be OPENed using the OPEN 
subroutine. LUNs 1-5 may also be assigned to disk 
files with OPEN. The OPEN subroutine allows the 
program to specify a filename and device to be 
associeited with e LUN. 

An OPEN of a non-existent -file creates a null file 
of the appropriate name. An OPEN of an existing 
file followed by sequential output deletes the 
existing file. An OPEN of an existing file 
followed by an input allows access to the current 
contents of the file. 

The form of an OPEN call varies ™ der ^J 51 "*"^ 
operating systems. See your Microsoft FORTRAN 
User's Manual, Section 3. 

8.4 AUXILIARY I/O STATEMENTS 

Three auxiliary I/O statements are provided: 

BACKSPACE U 
REWIND U 
ENDFILE u 

The actions of all three statements d«P^ d JJ ^ e 
LUN with which they are used (see Appendix B) . 
When the LUN is for a terminal or line printer, tne 
three statements are defined as no-ops. 

When the LUN is for a disk drive, the ENDFILE and 
REWIND commands allow further .program control of 
disk files. ENDFILE u closes the file "'fciated 
with LUN u. REWIND u closes the file associated 



/~> 
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with LUN u, then opens it again. BACKSPACE is not 
implemented at this time, and therefore causes an 
error if used. 



8.5 ENCODE/DECODE 

ENCODE and DECODE statements transfer data, 
according to format specifications, from one 
section of memory to another. DECODE changes data 
from ASCII format to the specified format. ENCODE 
changes data of the specified format into ASCII 
format. The two statements are of the form: 

ENCODE ( A, F) K 
DECODE ( A, F) K 

where ; 

A is an array name 

F is FORMAT statement number. 

X is an I/O List 

DECODE is analogous to a READ statement, since it 
causes conversion from ASCII to internal format. 
ENCODE is analogous to a WRITE statement, causing 
conversion from internal formats to ASCII. 
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NOTE 

Care should be taken that the array A is 
always large enough to contain all of the 
data being processed. There is no check 
for overflow . An ENCODE operation which 
overflows the array will probably wipe out 
important data following the array. A 
DECODE operation which overflows will 
attempt to process the data following the 
array. 

8.6 INPUT/OUTPUT LIST SPECIFICATIONS 

Most forms of READ/WRITE statements may contain an 
ordered list of data names which identify the cata 
to be transmitted. The order in which the list 
items appear must be the same as that in which the 
corresponding data exists (Input) , or will exist 
(Output) in the external I/O medium. 

Lists have the following form: 

ml ,m2, • • • ,mn 

where the mi are list items separated by commas, as 
shown. 

8.6.1 LIST ITEM TYPES 

A list item may be a single datum identifier or a 
multiple data identifier. 

1. A single datum identifier item is the name of a 
variable or array element. One or more or 
these items may be enclosed in parentheses 
without changing their intended meaning. 

Examples; 

A 

C(26,1) ,R,K,D, (I, J) 

B, 1(10, 10) ,S, (R,K) ,F(1,25) 



NOTE 

The entry (I, J) defines two items in 
list while (26,1) is a subscript. 



^^ *S 
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2. Multiple data identifier items are in two 
forms : 

a An array name appearing in a list without 
subscript (s) is considered equivalent to the 
listing of each successive element o£ tne 
array. 

Example; 

If B is a two dimensional array, the list item 

B is equivalent to: B (1 , 1) ,B (2 , 1 ) , B (3 , l ) , 

B(1,2) ,B(2,2)...,B(j,k). 

where j and k are the subscript limits of B. 



b. DO-implied items are lists of one or mo re 

single datum identifiers or other DO-implied 
items followed by a comma character and an 
expression of the form: 

i - m1,m2,m3 or i ■ ml ,m2 

and enclosed in parentheses. 

The elements i,m1,m2 f m3 have the same 
as defined for the DO statement, 
implication applies to all list items 
in parentheses with the implication. 

Examples: 

DO- Implied Lists 

(X(I), 1-1,4) 
(Q(J),R(J),J-1#2> 
(G(K),K«1,7,3) 
<(A(I,J),I«3,5),J-1,9,4) 



meaning 

The DO 

enclosed 



(R(M) ,M-1,2) ,I,ZAP(3) 
(R(3),T(I),I-1,3) 




Thus, the elements of a 
may be transmitted in 
the order in which they 
array A (3, 3) occupies 



matrix, for example, 

an order different from 

appear in storage. The 

-*— storage in the order 

Ad,i),A(2,i), A ^' 1)l ' A(1 ' 2) ' A(2 ^l:t (3 'tn; 

Ad,3),A(2,3),A(3 3) By -Pjcxfyin the 
transmission is: 



of 



s-\ 



8.6.2 
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A(2,3),A(3,1),A(3,2),A(3,3) , 

SPECIAL NOTES ON LIST SPECIFICATIONS 

" , * . i'4«t is from left to right 

1. The ordering of a list is * enclosed m 

with repetition or « subsC ripts) when 

lllZ h Jltl ^controlling "O-i-P"- index 
parameters. 

2. Arrays are tra^mitted by the appearanc^of ^he 
array name (unsuDscnpteu, 
list. 

... *« an input/output list 

3. Constants may appear in *" .£ parameters. 
only as subscripts or as indexing pa 

'■ IV *3-ii-J t ■£«£!■ '--"" - 

parentheses as list items. 

Examples; ^^ 

, kzad (1,20) (I,J,A(I),I-1,^> is not allowed 
2 MAO(1.20)X,J,(A(I).I-1^2) is allowed 
3. «tITE(1.20)CI f J.A(I),I-1.J^) i-i"~- 

Consider the following examples: 
DIMENSION A (25) 

Ad) - 2.1 
A(3) - 2.2 
A(5) - 2.3 
J ■ 5 

WRITE (1,20) J,(I,A(I),I«^J> 2 > 



* _ ~* f Ki« WRITE statement is 
the output of this wru* 

5,1,2.1,3,2.2,5,2.3 

.^•»r' in a " single 
1 . Any number of item, may appear in 

list. 
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2. In a formatted transmission (READ(u,f)k, 
WRITE (u,f)k) each item must have the correct 
type as specified by a FORMAT statement. 



8.7 FORMAT STATEMENTS 

FORMAT statements are non-executable, generative 
statements used in conjunction with formatted READ 
and WRITE statements. They specify conversion 
methods and data editing information as the data is 
transmitted between computer storage and external 
media representation. 

FORMAT statements require statement labels for 
reference (f) in the READ(u,f)k or WRITE(u,f)k 
statements. 

The general form of a FORMAT statement is as 
follows: 



n 



FORMAT (s1 ,s2,.. . ,sn/s1 * ,s2 •',... ,sn' /. . . ) 



where n is the statement label and each si is a 
field descriptor. The word FORMAT and the 
parentheses must be present as shown. The slash 
(/) and comma (,) characters are field separators 
and are described in a separate subparagraph. The 
field is defined as that part of an external record 
occupied by one transmitted item. 

8.7.1 FIELD DESCRIPTORS 

' Field descriptors describe the sizes of data fields 

and specify the type of conversion to be exercised 
upon each transmitted datum. The FORMAT field 
descriptors may have any of the following forms: 

Descriptor Classification 

rFw . d ; , 

rGw.d 

rEw.d Numeric Conversion 

rDw.ti 

rlw i 

rLw Logical Conversion 

rAw I 

nHh1h2...hn Hollerith Conversion 

•1112. ..In 1 

nx Spacing .Specification 

mP Scaling Factor 
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Whe^e, instants defining \ 

, „ and n are positive .integer cons tan deciffial 

«££%jsa .sain*"--" 1 *••* ;■ 

representation. 

, « j-« ♦•he number 01 a 

, d i. an integer »P«=^^" 9 in the external 
2 * fractional digits appearing 
data representation. 

I A and L indicate 
3 . ». characters F, 0^. J, be applie d to the 

^InVinput/output list. 

„-*.« integer indicating 
'• LS Se'IescrfeoHlube repeated r ti— 

** * the FORTRAN 



5. 

6. 



The hi and li are characters from 
character set. 

instant (positive, negative, 
m is an integer consta n* ** 
or zeTo) indicating scaling. 



8.7.2 ffi^SSS^HISiii ^ numeric 

Inpu t operations with ^any^ to be represented 

conversions will • commas may be I,*4 ftn 

in a -Free Forma ■ ; J^; C xtarn al representation. 
separate the fieia» 

F-type ^ftnversion 

Form: Fv.d pr0C essed 

R eal or Double Precision type d^^ ^ proce98ed 
rf'w.icfd'arrc-sidered fractional. 

F-output #j ^ 

number. • decimal point an^ t . does 
frM ^?? a ih. P £i-ld? it S right Ju.tifie d i n the 
not fill the !»«' t.dinc blanks to fill tne u 
fi eld and enough preceding^ req uire, more field 

are inserted. ir ,, ^ Hv w. the first w-i a*j 
'"itions than allowed *Y "^ by an asterisk, 
of the value are output, pr 
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' F-Output Examples: 

roWiAT internal Output 

Descriptor Value *« 

F10 4 368.42 bb362. 4200 

F7°n -4786.361 - 4 '":« 

l.o a B 7E-2 bbO.0375 

F 4 5«9.76 ;."0° 

F7.3 "5.6 b - 5 - 600 

* Note the loss of leading digits in the 4th line 

above. 

T- Input 
(See the description under E-Input below.) 

E-type Conversion 
Form: Ew.d 

Real or Double Precision type data are P"""^ 
using this conversion, w characters are *>* 
of which d are considered fractional. 

E-Output 

Values are converted, rounded to d digits, and 

output as : 

1. a minus sign (if negative), 

2. a zero and a decimal point, 

3. d decimal digits, 

4. the letter E, 

5. the sign of the exponent (minus or blank), 

6. two exponent digits, 

in that order. The values as described are right 
in w« j It 4-fc* field w with preceding blanks to 
justified in the rieia w w;w ?*« # s.id width w 
fill" the field if necessary. • The field wiatn 
should satisfy the relationship: 

w > d + 7 | 

Otherwise significant characters may be lost. Some 
E-Output examples follow: 



li 
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Internal 
Value 

76.573 
-32672.354 
-0.0012321 
76321.73 



Output 
(b-blank) 

bb.76573Eb02 
-b.3267235Eb05 
bb-b.1232E-02 
b.76Eb05 



FORMAT 
Descriptor 

E12.5 
E14.7 
E13.4 
E8.2 

E-Input 

. w -> t-.t-oeftssed under E, E, 

Data value, which are to ^ proces f 

or G conversion C ?\*S * r€l „£ format is identical 
the external ^put medium. The * 
for either conversion and is 



1. Leading spaces (ignored) 



2. A * or - sign (an unsigned input is assumed to 
be positive) 

3. a string of digits 

4. A decimal point 

5. A second string of digits 

6. The character E 

7. A + or - sign 

8. A decimal exponent 

but the 



(above) are present, 



or 



or 



.« 4-h- liat above is optional; 
Each item in £• "• t j£t be observed: 
following conditions must o« 

<\ If FORMAT items 3 and 5 
then 4 is required. 

2 If FORMAT item 8 is present, then 6 
both are required. 

, a*~» «naces are considered zeros. 
3. All non- leading spaces «« 

~* /UrHta in length, 
input data can be any "f^^f ^'developed, but 
"* ifi r on e S t ili m br«ain e tain W ed U only to the extent 
!£eifi2 in'sec'tion 3 for Keal data. 



S~\ 
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E- and F- and G- Input Examples: 



FORMAT 
Descriptor 

E10.3 
E10.3 
G8.3 
F12.4 



Input 
(b«blank) 

+0.23756+4 
bbbbb17631 
b1628911 
bbbb-6321132 



Internal 
Value 

+2375.60 
+17.631 
+1628.911 
-632.1131 



Note in the above examples that if no decimal point 
is given among the input characters, the d in the 
FORMAT specification establishes the decimal point 
in conjunction with an exponent, if given. If a 
decimal point is included in the input characters, 
the d specification is ignored. 

The letters E, F, and G are interchangeable in the 
input format specifications. The end result is the 
same. 



D-Type Conversions 

D-Input and D-Output are identical to E-Input and 
E-Output except the exponent may be specified witn 
a TD" instead of an "E." 



G-Type Conversions 
Form: Gw.d 

Real or Double Precision type data are processed 
using this conversion, w characters are processed 
of which d are considered significant. 

G-Input: 
(See the description under E-Input) 

G-Output : 

The method of output conversion is a function of 
the magnitude of the number being output. # Let ^ &e 
the magnitude of the number. The following table 
shows how the number will be output: 
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Mag nitude 
.1 <- n 1 
1 <- n 10 
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Equivalent Conversion 
F(w-4).d,4X 
F(v-4).(d-D#*X 



10 d ~ 2 <- n < 10 



d-1 



10 d " 1 <- n < 10 ( 
Otherwise 



F(w-4) .1#4X 

F(w-4).0,4X 

Ew.d 



I-Conversions 
Form: Iw 

„ nly .„«.,.* --a- ssraar *» "" " 

conversion, w specines ut^. 

I-Output: 

inverted to Integer constants. 
^ alU ^v/ r values are preceded by a minus ■!*>•*< 
Negative values a t?,T <. hft field, it is rignt 
thl value does not fill the tie , - ng bla ^ ks 

ju,tified in the field and« n W P ^ value 
to fill the field are ££ r ^" 1 . a . t significant 
exceeds the field width, °^* ; d d by an asterisk. 
w-1 characters are output preceded oy 



Internal 

Value 

•1-281 
-23261 
126 
-226 



Output 
(b«blank) 

bbb281 

-23261 

126 

-226 



Examples^, 

FORMAT 
Descriptor 

16 
16 
13 

14 

I- Input: 

j. < n out and converted to 
A field of * characters is ^*™ mLqti ma y precede 
Eternal integer format A ^ 8 not % re sent, the 
the integer digits, ir * * 
value is considered positive. 

-32768 to 32767 are 
Integer values in the * an 9* treated as" zeros, 
accepted. Non-leading spaces are. 



■^saj/ 
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Examples t 

Format 
Descriptor 

14 
14 
17 

14 



Input 
(b-blank) 

b124 
-124 
bb6732b 
1b2b 



Internal 
Value 

124 
-124 
67320 
1020 



8.7.3 HOLLERITH CONVERSIONS 
A-Type Conversion 
The form of the A conversion is as follows: 

Aw 

This descriptor causes unmodified Hollerith 
characters to be read into or written from a 
specified list item. 

The -maximum number of actual characters which may 
be transmitted between internal and external 
representations using Aw is four times the number 
of storage units in the corresponding list item 
(i.e., 1 character for logical items, 2 characters 
for integer items, 4 characters for Real items and 
8 characters for Double Precision items). 



A-Output : 



number of 
item) , the 



If w is greater than,4n (where n is the 
storage units required by the list K1>inlfB 
external output field will consist of w-4n blanks 
followed by the 4n characters from the internal 
^presentation. If v is less than 4n, the external 
output field will consist of the leftmost 
characters from the internal representation. 



w 



Examples: 




Format 


Interna 


Descriptor 




A1 


A1 


A2 


AB 


A3 


ABCD 


A4 


ABCD 


A7 


ABCD 


A-Input: 





Integer 
Integer 
Real 

Real 
Real) 



Output 
(b-blanks) 

A 

AB 
ABC 
ABCD 
bbbABCD 



If w is greater than 4n (where -n is the number of 
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storage units required by the corresponding list ■ } 

1 H tem) ' ^n.i 9h ^ut 4 fiei a d raC I?" l.'le.flnan^ 
Se W e ch,ra=tert n appear ie ef; Justified with v-4n 
trailing blank, in the internal representation- 



e 



Examples t 

Format Input Type 

Descriptor Characters 



Internal 
(b-blanks) 



.. A Integer Ab 

A3 ABC integer AB 

it T D 2S 9 " lf G 

X7 ABCDETG Real DEFG 

H-Conversion 

The forms of H conversion are as follows: 

nHh1h2...hn 

'H1h2...hn' 

These descriptors process ?° 11 ^? «5"E£i 

string, between the ^"^ny ^nar^cJf from 
field, where each h represents any cn«a^ 
the ASCII character set. 

NOTE 

Special consideration is required if an 
apostrophe CM i« to be used within the 
literal string in the "cond form An 
apostrophe character within the string « 
represented by two successive apostrophes. 
See the examples below. 

H-Output. 

*.*- n rh.ractars hi, are placed in the external 

descriptors will be taken as part "*• . terl 
In both forms, blanks are counted as characters. 



t 
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f 



Examples : 

Format 
Descriptor 

1HA or 

8HbSTRINGb or 
11HX(2,3)«12.0 or 
12HIbSH0ULDN'T or 

H-Input 



•A 1 

•bSTRINGb' 
•X(2,3)«12.0' 
•ibSHOULDN 1 'T f 



Output 
(b«blanks) 



bSTRINGb 
X(2,3)-12.0 

IbSHOULDN' T 



The n characters of the string hi are replaced by 
the next n characters from the input record. This 
results in a new string of characters in the field 
descriptor. 



FORMAT 
Descriptor 



4H1234 

7HbbFALSE 

6Hbbbbbb 



or 
or 
or 



M234 1 

•bbFALSE 1 
•bbbbbb* 



Input 
(b»blank) 

ABCD 

bFALSEb 

MATRIX 



Resultant 
Descriptor 

4HABCD or 'ABCD' 
7HbFALSEb or 'bFALSEb' 
6HMATRIX or 'MATRIX' 



8.7.4 LOGICAL CONVERSIONS , 

The form of the logical conversion is as follows: 

Lw 

L-Output: 

If the value of an item in an output list 
corresponding to this descriptor is 0, an F will be 
output? otherwise, a T will be output. If w is 
greater than 1 # w-1 leading blanks precede the 
letters. 



Examples : 




' 


FORMAT 
Descriptor 


Internal 
Value 


Output 
f (b»blahk) 


LI 
L1 
L5 
L7 


1 A A I 

O V V O 

o o 


F 

T 

bbbbT 
bbbbbbF 



L-Input 

The external representation occupies w position^. 
It consists of optional blanks followed by a "T" wr 
"F", followed by optional characters. • * 
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8.7.5 X DESCRIPTOR 

The form of X conversion is as follows: 

nX 

This descriptor causes » J™™^ ^$U&1 
does it correspond to an "■■ n blanks to 

list. When used f ^° u ou £ ut l record. Under input 
be inserted in the °^put r next „ 

circumstances, this descriptor cause 
characters of the input record to be sJcippe 

Output Examples i 

Output 
FORMAT Statement (b«blanks) 

3 FORMAT nHA^HBC^ AbbbbB^ 
7 FORMAT (3X,4HABCD, iX) 

Input Examples: 

Incut String Resultant Input 
FORMAT Statement input aw. <* 

-. ,<** i -»v f^> 01 12.5ABC120 12.5,120 

,0 5 S Sfcla"' 1«««"» 012 

8 7 6 P DESCRIPTOR 

~The P descriptor is used to 1^% * ^^ 
factor for real convTjion. ( P. E^D^G, ^.^ 
is nP where n is an intey^ 
negative, or zero). 

The scaling factor is •««-£«$ It'll' (ea=h°RXAD 
the beginning of each formatted l/o descriptor is 
or WRITE »""ment). " a FORMAT, the scale 
encountered **"• ■** nn i;£ scale factor remains 
c „ C anged iS untri 9e anrther pTescriptor is encountered 
or the I/O terminates. 
Effects of Scale Factor on Innut^ 

*. *>-,• acale factor takes 
During E, F, or G *»P"' £j t '"present in the 
effect only if »° •* poM ?„ that case, the 
external "P 16861 ?"" "; f.itor of 10**n less than 
internal value will be a^act ^ ^ divided by 

the external value itne iju* 
10**n before being stored). 
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"\ Effect of Scale Factor on Output: 

*" E-Output, D-Output: 

The coefficient is shifted left n places relative 
to the decimal point, and the exponent is reduced 
by n (the value remains the same). 

F-Output : 

The external value will be 10* *n times the internal 
value. 

G -Output: 

The scale factor is ignored if the internal value 
is small enough to be output using F conversion. 
Otherwise, the effect is the same as for E output. 

8-7.7 SPECIAL CONTROL FEATURES OF FORMAT STATEMENTS 

8.7.7.1 Repeat Specifications 

1. The E, F, D, G, I, L and A "field descriptors 
may be indicated as repetitive descriptors by 
using a repeat count r in the form rEw.d, 
rFw.d, rGw.d, rlw, rLw, rAw. The following 
pairs of FORMAT statements are equivalent: 

66 FORMAT (3F8.3,F9.2) 
C IS EQUIVALENT TO: 

66 FORMAT (F8. 3,F8. 3,F8. 3,F9.2) 

14 FORMAT (2I3,2A5,2E10.5) 
C IS EQUIVALENT TO: 

14 FORMAT (I3,I3,A5,A5,E10.5,E10.5) 



2. Repetition of a group of field descriptors is 
accomplished by enclosing the group in 
parentheses preceded by a repeat count. 
Absence of a repeat couint indicates a count of 
one. Up to two levels of parentheses, 
including the parentheses required by the 
FORMAT statement, are permitted. 

Note the following equivalent statements: 



( ' 
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22 FORMAT <I3, 4 (F6. 1 ,2X) ) 

C IS EQUIVALENT TOt 2X,F6,1,2X, 

22 FORMAT (I3,F6. 1 ,2X,F6. 1 ,^*#* "• , 

1 F6.1,2X) 



3* 



Repetition of "W^^g^n the FORMA? 

Initiated when ell 5 S„Z P there are still 
statement have been used but th«r^ » have not 

items in the ^J'Sli. oceur- the FORMAT 
been Processed, ^"^eo starting at the first 
descriptors »"".)**!?. format statement. A 
opening parenthesis in the FORKa tenthes ized 

repeat count P"«^ n | d i, a iso active in 
descriptor (s) to be re usea itive use of 

the re-use. Thi» W« ®= * r ^ cessing , the 
FORMAT descriptors terminates pro * si of 



Input Example: 



DIMENSION A (100) 
READ (3,13) A 



13 FORMAT (5F7.3) 

T t lu' r.c:ra:'.» e inp r urand q a S sfgne e d S to Jr tS: ar'rS 
elements of the array A. 
Output Example i 



TOITE (6,12)E,F,*,L,M,KK,LL,MM,K3,LE, 
1 M3 



12 FORMAT (2F9.4, (317)) 

,.w r.rnrds are written. Record 
In this example, three records^ *^ Because the 

1 contains E, r, *» ** t Record 2 contains 

descriptor 317 is reused twice, w^ M3< 

k" LL and MM and Record 3 contains K3 # L3 an 



/-% 
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8.7.7,2 Field Separators 

Two adjacent descriptors must be separated in the 
FORMAT statement by either a comma or one or more 
■lashes. 

Example: 

2H0K/F6.3 or 2H0K,F6.3 

The slash not only separates f * eld * escr * p *°"' *"* 
it also specifies the demarcation of formatted 

records. 

Each slash terminates a record and sets up the next 
record for processing. The remainder of an input 
record is ignored? the remainder of an output 
record is filled with blanks. Successive slashes 
(///.../) cause successive records to be 19™"° ©n 
input and successive blank records to be written on 
output. 

Output example: 

DIMENSION AO00),J(20) 



WRITE (7,8) J, A 
8 FORMAT (10I7/10I7/50F7.3/50F7.3) 

In this example, the data specified by thi iiit jf 
the WRITE statement are output to unit 7 •wording 
to the specifications of FORMAT statement 8. Four 
records are written as follows: 

Record 1 Record 2 • Record 3 Record 4 
Jd) JC1D Ml) A(51) 



J(2) 



j(12) A(2) A(52) 



j(10) J(20) • A(50) AdOO) 



Input Example: 

DIMENSION B(10) 



READ (4,17) B • 
17 FORMAT (F10.2/F10.2///8F1 0.2) 



In this example, the two array .elements- ■BH) and 
B(2) receive their values from the first data 
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items. 



7. 



On input, whenever Vi;"^ l ?oiJS?SwrSto» 
the FORMAT statement o r thi F OPWAT J«crip 

have been exhausted and re-use °* «•" record 
i* initiated, process ng of the curreat record 
is terminated and the following occurs. 



a. 



Any unprocessed characters in the record 
are ignored. 



b. If more input is ^"f"^* '^is 
list requirements, the next recora 

read. 



/^ 



fields of -<™«-i""£g* (t The"£ira d and fourth " 1 
SSorS^i^VKTS 'refining events of 
the array are filled from the fifth record. 

8.7.8 FORMAT CONTROL, LIST SPECIFICATIONS AND RECUSE 
DEMARCATION 

The following relationships *** * n ^f ^nl 
between FORMAT control, input/output lists 
record demarcation should be noted: 

1. Execution of a formatted READ or WRITE 
statement initiates FORMAT control. 

i Th« conversion performed on data depends on 
2 * SforSnlointly Prided by the . !«.»«. £ 

the input/output list and field descriptors 
the FORMAT statement. 

3. If there is an input/output list, at least on. 
descriptor of types E, F, D, G, J, 
be present in the FORMAT statement. 

4 Each execution of a formatted READ statement 
causes a new record to be input. 

* Each item in an input list corresponds to a 

5. Eacn iwroinoi r . e l ers i n the record and to a 
string of characters in u*» 

descriptor of the types E, F, G, I, L or a 
the FORMAT statement. 

6. Hand X descriptors ^—^r^cor^Sd^S 
directly between the exter .^i"" r to list 
field descriptors without reference to 
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8. A READ statement is terminated when all items 
in the input list have been satisfied if: 

a. The next FORMAT descriptor is E, F, G, I, 
L or A. 

b. The FORMAT control has reached the last 
outer right parenthesis of the FORMAT 
statement. . 

If the input list has been satisfied, but the 
next FORMAT descriptor is H or X, more data are 
processed (with the possibility of new records 
being input) until one of the above conditions 
exists. 

9. If FORMAT control reaches the last right 
parenthesis of the FORMAT statement but there 
are more list items to be processed, all or 
part of the descriptors are reused. (See item 
3 in the description of Repeat Specifications, 
sub-paragraph 8.7.7.1) 

10. When a Formatted WRITE statement is executed, 
records are written each time a slash is 
encountered in the FORMAT statement or FORMAT 
control has reached the rightmost right 
parenthesis. The FORMAT control terminates in 
one of the two methods described for READ 
- termination in 8 above. Incomplete records are 
filled with blanks to maintain record lengths. 

8.7.9 FORMAT CARRIAGE CONTROL 

The first character of every formatted output 
record is used to convey «»*•*• "^"i 
information to the output device, and is therefore 
never printed. The carriage control character 
determines what action will be taken before the 
line is printed. The options are as follows: 

Control Character Action Taken Before Printing 

Skip 2 lines 

1 Insert Form Feed 
+ No advance 
Other Skipl line 

\ 
8.7.10 FORMAT SPECIFICATIONS IN ARRAYS 

The FORMAT reference, f, of a for " at ^ d Ar ^ D na ^ 
WRITE statement (See 8.1) may be an array name 
instead of a statement label.' If such reference is 
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.4. ♦•>,- +i me of execution of the READ/WRITE 
made, at the time ° £ *** cuw information 
statement the first part of t order# 

array* may contain non-FORMAT information following 
the right parenthesis that ends the sukwa 
specification. 

«,. r»»MXT w «=ifi=.«o; which ".x.ssi;*: 1 !;^; 

and ends with a right parenthesis] • 

The FORMAT specification may be i nser "* ^\ ^t 
The ro r WA1 ^' p ^ i a n * T * initialization statement, or 
array by use of a data ini ^ ia r* Ather w i tn an Aw 
by use of a READ statement together 

FORMAT • Example; 
Assume the FORMAT specification 
(3F10. 3,416) 

or a similar 12 character s P^ if ^^° n au ^ aUowl 
stored into an array. The array 
minimum of 3 storage units. 

The FORTRAN coding below shows the various ~thod« 
Tne rw 2lwV4«HSnfl the FORMAT specification ana men 
of establishing the ™%£ * formatted READ or 
referencing the array ror a * 

WRITE. 



^\ 
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C DECLARE A REAL ARRAY 

DIMENSION A(3), B(3), M(4) 
C INITIALIZE FORMAT WITH DATA STATEMENT 

DATA A/'(3F1' , ' . 3 , ' , ' 416 ) V 



C READ* DATA USING FORMAT SPECIFICATIONS 
C IN ARRAY A 

READ(6,A) B, M 

C DECLARE AN INTEGER ARRAY 

DIMENSION IA(4), B(3), M(4) 



C READ FORMAT SPECIFICATIONS 

C FORMAT^OR 7 INPUT OF FORMAT SPECIFICATIONS 
15 FORMAT (4A2) 



C READ DATA USING PREVIOUSLY INPUT 
C FORMAT SPECIFICATION 
READ (7,IA) B,M 
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SECTION 9 
FUNCTIONS .AND SUBPROGRAMS 

The FORTRAN language provides a means for defining and using 
often needed programming procedures such that the statement 
or statements of the procedures need appear in a program 
only once but may be referenced and brought into the logical 
execution sequence of the program whenever and as often as 
needed. 

These procedures are as follows: 

1. Statement functions. 

2. Library functions. 

3. FUNCTION subprograms. 

4. SUBROUTINE subprograms. 

Each of these procedures has its own unique requirements for 
reference and defining purposes. These requirements are 
discussed in subsequent paragraphs of this section. 
However, certain features are common to the whole group or 
to two or more of the procedures. These common features are 
as follows: 

1. Each of these procedures is referenced by its name 
which, in all cases, is one to six alphanumeric 
characters of which the first is a letter. 

2. The first three are designated as "functions" and 
are alike in that: 

1. They are always single valued (i.e., they 
return one value to the program unit from which 
they are referenced) . 

2. They are referred to by an expression 
containing a function name. 

3. They must be typed by type specification 
statements if the data type of the 
single-valued result is to be different from 
that indicated by the pre-defined convention. 

3. FUNCTION subprograms and SUBROUTINE subprograms are 
considered program units. 



i 
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In the following descriptions of these procedures, the term 
calling program means the program unit or Procedure "which 
a reference to a procedure is made, and the term called 
program" means the procedure to which a reference is made. J 

9 . 1 THE PROGRAM STATEMENT "| 

The PROGRAM statement provides a means of 
specifying a name for a main program unit. The , 
form of the statement is: 

PROGRAM name 

If present, the PROGRAM statement roust *P?* ar 
before any other statement in the Program unit. 
The name consists of 1-6 alphanumeric cha meters, 
the first of which is a letter. If no PROGRAM 
statement is present in a main program, the 
compiler assigns a name of $MAIN to that program. 

9.2 STATEMENT FUNCTIONS 

Statement functions are defined by a ■inj£* 
arithmetic or logical assignment statement and are 
relevant only to the program unit in which they 
appear. The general form of a statement function 
is as follows: 

f (a1,a2,...an) » • 

where f is the function name, the ai are dummy 

arguments and • is an arithmetic or logical 
expression. 

Rules for ordering, structure and use of statement 
functions art as follows: 

1. Statement function definitions, if they •**»* 
in a program unit, must precede all «*= uta "? 
statements in the unit and follow all 
specification statements. 

2 ' The ai are distinct variable names or array 
* elements, but, being dummy variables, they may 

have the same names as variables of the same 

type appearing elsewhere in the program unit. > 

3 The expression e is constructed according to 
the rules in SECTION: 4 and may contain only 
references to the 'dummy arguments and 
non-Literal constants, variable *«* *rray J 
element references, utility and f m ^ m f lc ^ 
function references ' and references to 
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previously defined statement functions. 

4. The type of any statement function name or 
argument that differs from its P"-defined 
convention type must be defined by a type 
specification statement. 

5. The relationship between f and e must conform 
to the replacement rules in Section 5. 

6. A statement function is called by its name 
followed by a parenthesized list jf »rgumants. 
The expression- is evaluated using the arguments 
specified in the call, and the reference is 
replaced by the result. 

7. The ith parameter in every argument list must 
agree in type with the ith dummy in the 
statement function. 

The example below shows a statement function and a 
statement function cal... 

C STATEMENT FUNCTION DEFINITION 

C FUNC1(A,B,C,D) -.((A+B)**C)/D 

C STATEMENT FUNCTION CALL 

C A12-A1-FUNC1 (X,Y,Z7,C7) 

9.3 LIBRARY FUNCTIONS 

Library functions are a group of utility "£ 
mathematical functions which are "built-in to the 
FORTRAN system. Their names a P«-defined totte 
Processor and automatically typed. The functions 
are listed in Tables 9-1 and 9-2. In the tables, 

arguments are denoted as a1,a2 an, i »orj than 

one argument is required; or as a if only one is 
required. 

A library function i. called when j" "^ i» «••* 
in an arithmetic expression. Such a reference 
takes the following form: 

f (a1 ,a2, . . .an) 

where f is the name of the function and th e •£ •« 
actual arguments. The "guments must " *|« e o * n 
type, number and order with the specinc 
indicated in Tables 9-1 and 9-2. 
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In addition to the functions listed in 9-1 and 9-2, 
four additional library subprograms are provided to 
enable direct access to the 8080 (or 280) hardware. 
These are: 

PEEK, POKE, INP, OUT 

PEEK and INP are Logical functions; POKE and OUT 
are subroutines. PEEK and POKE allow direct access 
to any memory location. PEEK (a) returns the 
contents of the memory location »P;"^ cd *£ •' 
CALL POKE(a1,a2) causes the contents of the mem °^ 
location specified by a1 to be replaced by the 
contents of a2. INP and OUT allow direct access to 
the I/O ports. INP (a) does an input from porta 
and returns the 8-bit value input. CALL OUT(ai,aZ) 
outputs the value of a2 to the port specified by 
a1. 

Examples: 

• A1 - B+FLOAT (17) 

MAGNI - ABS(KBAR) 

PDIF - DIM (CD) 

S3 - SIN(T12) 

ROOT - (-B+SQRT(B**2-4.*A*C))/ 
1 (2.*A) 
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/^. 



TABLE 9-1 



Intrinsic Functions 



Function Name 

ABS |a| 

IABS 

DABS 



Definition 



Types 

Argument Function 



Real 

Integer 

Double 



Real 

Integer 

Double 



AINT 

INT 

IDINT 

AMOD 
MOD ■ 

AMAXO 
AMAX1 

MAXO 
MAX1 
DMAX1 

AMINO 

AMIN1 

MINO 

MINI 

DMIN1 

FLOAT 



IFIX 



SIGN 

ISIGN 

DSIGN 



Sign of a times lar- 
gest integer <- |a| 

a1 (rood a2) 

Max(a1 , a2, • . . ) 



Min (a1 ,a2, . . . ) 



Conversion from 
Integer to Real 

Conversion from 
Real to Integer 

Sign of a2 times |a1 



Real 
Real 
Double 

Real 
Integer 

Integer 

Real 

Integer 

Real 

Double 

Integer 

Real 

Integer 

Real 

Double 

Integer 



Real 



Real 

Integer 

Double 



Real 
Integer 

Integer 

Real 
Integer 

Real 

Real 

Integer 

Integer 

Double 

Real 
Real 
Integer 
Integer 

Double 

Real 



Integer 



Real 

Integer 
Double 



DIM 
IDIM 

SNGL 

DBLE 



a1 - Min(al,a2) 



Real 
Integer 

Double 

Real 



Real 
Integer 

Real 
Double 



I — I ■■' ■ ■ 
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TABLE 9-2 



Basic External Functions 





Number 
of 


Name Arguments 


EXP 
DEXP 




ALOG 
DLOG 




ALOG 10 
DLOG 1 




SIN 
DSIN 


1 


COS 
DCOS 




TANH 




SQRT 
DSQRT 




ATAN 
DATAN 




ATAN 2 
DAT AN 2 


2 
2 



In (a) 

loglOU) 

sin (a) 

cos (a) 

tanh (a) 
(a) ** V2 

arctan (a) 



Argument 


Function 


Real 
Double 


Real 
Double 


Real 
Double 


Real 
Double 


Real 
Double 


Real 

Double 


Re a x 
Double 


Real 
Double 


Real 
Double 


Real 
Double 


Real 


Real 


Real 
Double 


Real 
Double 


Real 
Double 


Real 
Double 


2) Real 

nouble 


Real 
Double 



DMOD 



al (mod a2) 



Double 



Double 



■V 
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9 . 4 FUNCTION SUBPROGRAMS ^ - 

A program unit which begins with a FUNCTION ^ 
statement is called a FUNCTION subprogram. 

A FUNCTION statement has one of *the following y 

forms : 

t FUNCTION f Ca1,a2,...an) f 

or 

FUNCTION f (a1,a2,...an) 

where: 

1. t is either INTEGER, REAL, DOUBLE PRE CISION or 
LOGICAL or is empty as shown in the second 
form. 

2. f is the name of the FUNCTION subprogram. 

i The ai are dummy arguments of which there must 
3 - £* at leas^one and which represen t variable 

names, array names or dummy names of SUBROUTINE 

or other FUNCTION subprograms. 

9# 5 CONSTRUCTION OF FUNCTION SUBPROGRAMS 

Construction of FUNCTION subprograms must comply 
with the following restrictions: 

1 The FUNCTION statement must be the first 
statement of the program unit. 

2. Within the FUNCTION "bp**^ & leftTiae 
^hr.qua!Itr.t t g n 1 :rL assi r ent 8 tat = 
or as an item in the input Hit of an input 
.tl.t. This defines the value of the 
FUNCTION so that it may be returned to cne 
calling program. 

Additional values may be returned "the 
calling program through assignment of values to 
dummy arguments. | 
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Example : 

FUNCTION Z7 (A,B,C) 

Z7 « 5.MA-B) ♦ SQRT(C) 



C REDEFINE ARGUMENT 
B-B+Z7 



RETURN 

END 

3. The names in the dummy «rg^J Uit wy not appear 
in .EQUIVALENCE, COMMON or DATA statements in tne 
FUNCTION subprogram. 

4 if a dummy argument is an array name, then an array 
4 * dectarS must appear in the »^P™9 r ™ t wl J* 

dimensioning information consistant with that in 

the calling program. 

5. A FUNCTION .£££'•» ™Y "thin" IlOCK^DATA 
FORTRAN statements other "an <"; FUNCTION' 
statements. SUBROUTINE statements, a "°^" FUNCTIO. 
statement or any statement which references either 
the FACTION being defined ' or another subprogram 
that references the FUNCTION being defined. 

6. The logical termination of a FUNCTION «^P^ram is 
a RETURN statement and there must be at lease one 

of them. 

7. A FUNCTION subprogram muSt physically terminate 
with an END statement. 



I 
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;> 

Example; 

FUNCTION SUM (BARY,I,J) 
DIMENSION BARY (10,20) 
SUM -0.0 
DO 8 K»1,I 
D08 M - 1,J 
8 SUM » SUM + BARY(K,M) 
RETURN 
END 

9.6 REFERENCING A FUNCTION SUBPROGRAM 

FUNCTION subprograms are called whenever whe 
FUNCTION name, accompanied by an argument list, is 
used as an operand in an expression. Such 
references take the following form: 

f (al ,a2, ... ,an) 

where f is a FUNCTION name and the ai are actual 
arguments. Parentheses must be present in the form 
shown. 

The arguments ai must agree in type, order and 
number with the dummy arguments in the FUNCTION ^j 
statement of the called FUNCTION subprogram. They 
may be any of the following: 

1. A variable name. 

2. An array element name. 

3. An array name. 

4. An expression. 

5. A SUBROUTINE or FUNCTION subprogram name. 

6. A Hollerith or Literal constant. 

If an ai is a subprogram name, that name must have 
previously been distinguished from ordinary 
variables by appearing in an EXTERNAL statement and 
the corresponding dummy arguments in the called 
FUNCTION subprograms must be used in subprogram * 
references. 

If ai is a Hollerith or Literal constant, the f 
corresponding dummy variable should encompa s 
enough storage units to correspond exactly _to the 
amount of storage needed by the constant. 



When 



FUNCTION subprogram is called, program 
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control goes to the first executable statement 
/r »J following the FUNCTION statement. 

The following examples show references to FUNCTION i 
subprograms. ^ 

Z10 - FT1+Z7(D,T3,RHO) j 

DIMENSION DAT (5, 5) 

I 

SI - T0T1 + SUM (DAT, 5, 5) 

9.7 SUBROUTINE SUBPROGRAMS 

SUBROUTINE 



A program unit which begins with a SUBROUTINE 
statement is called a SUBROUTINE subprogram The 
SUBROUTINE statement has one of the following 
forms : 



SUBROUTINE s (a1 ,a2 , . . . ,an) 



or 

SUBROUTINE S 



where s is the name of the SUBROUTINE subprogram 
and each ai is a dummy argument whic J? *fP r "f" ts * 
variable or array name or another SUBROUTINE or 
FUNCTION name. 

9.B CONSTRUCTION OF SUBROUTINE SUBPROGRAMS 

1. The SUBROUTINE statement must be the first statement 
of the subprogram. 

2. The SUBROUTINE subprogram name must not *PP«" ' *£ 
any statement other than the initial SUBROUTINE 
statement. 

3. The dummy argument names ■ must not appear in 
EQUIVALENCE, COMMON or DATA statements m the 
subprogram. j 

4. If a dummy argument is an array "»"« J*™ ™ a w ^ 
declarator must appear in the ■^?9*f l in w i}£ 
dimensioning information consistent with that in tne 

calling program. i 

if anv of the dummy arguments represent values that J 
li any oi we uu^ ^j cnspocTINE subDrogram 
are to be determined by the SUBROUii.^ » . dumnv 
and returned to the calling program, these dummy 



5. 



i 
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arguments must appear within the subprogram on the ~\ 
left side of the equality sign in a replacement 
statement, in the input list of an input statement 
or as a parameter within a subprogram reference. 

• 

6. A SUBROUTINE may contain any FORTRAN statements 
other than BLOCK DATA statements, FUNCTION 
statements, another SUBROUTINE statement, a PROGRAM 
statement or any statement which references the 
SUBROUTINE subprogram being defined or e *£°*;k e E 
subprogram which references the SUBROUTINE 
subprogram being defined. 

7. A SUBROUTINE subprogram may contain any number of 
RETURN statements. It must have at least one. 

8. The RETURN statement (s) is the logical termination 
point of the subprogram. 

9. The physical termination of a SUBROUTINE subprogram 
is an END statement. 

10. If an actual argument transmitted to a SUBROUTINE 
subprogram by the calling program is the name or a 
SUBROUTINE or FUNCTION subprogram, the corresponding 
dummy argument must be used in the called SUBROUTINE ^ 
subprogram as a subprogram reference. 

Example: 

C SUBROUTINE TO COUNT POSITIVE ELEMENTS 
C IN AN ARRAY 

SUBROUTINE COUNT P (ARRY , I ,CNT) 

DIMENSION ARRY (7) 

CNT • 

DO 9 J-1,I 

IF(ARRY(J))9,5,5 
9 CONTINUE 

RETURN 
5 CNT - CNT+1.0 

GO TO 9 

END 

9.9 REFERENCING A SUBROUTINE SUBPROGRAM 

A SUBROUTINE subprogram may be called by using a 
CALL statement. A CALL statement has one of tne 
following forms: 

CALL s(a1 ,a2, ... ,an) 
or 
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CALL s 

where s is a SUBROUTINE subprogram name and ^ ai 

tt the actual arguments to be used by the j 

.nbnroaram. The ai must agree in type, orae. »■>" 

number with the corresponding dumny arguments in 

tSf subprogram-defining SUBROUTINE statement. J 

The arguments in a CALL statement must comply with . 
the following rules s I 

1. FUNCTION and SUBROUTINE names W" r ^ f d 'f n 
argument list must have previously appeared in 
an EXTERNAL statement. 

2. If the called SUBROUTINE subprogram =°"« in § * 

j i^i- m**ir»xt declarator* then tne tA^ 

as arguments. 

tf .n ifim in the SUBROUTINE subprogram dummy 

3 ' ^gS.St^liSt^i. an array, ^f ^f n ^S 

item in the CALL statement argument list must 

be an array. 

When a SUBROUTINE subprogram is called. Program 
control goes to the first executable statement 
following the SUBROUTINE statement. 

Example: 

DIMENSION DATA (10) 



C CALL COUNTP(DATA,10,CPOS) 



9.10 



RETURN FROM FUNCTION AND SUBROUTINE S UBPROGRAMS 

The logical termination of a UNCTION or SUBROUTINE 
Subprolram is a M^ -t.tmm.nt which transfers 
control back to the "lling program. xne g 
form of the RETURN statement is simpiy 

\ 
RETURN I 

:, 6 ..-- f the RETURN 
The following rules govern the use or w 

statement: 
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1. There must be at least one RETURN statement in 
each SUBROUTINE or FUNCTION subprogram. 

2. RETURN from a FUNCTION subprogram is to the 
instruction sequence of the calling program 
following the FUNCTION reference. 

3. RETURN from a SUBROUTINE subprogram is to the 
next executable statement in the calling 
program which would logically follow the CALL 
statement. 

4. Upon return from a FUNCTION subprogram the 
single-valued result of the subprogram is 
available to the evaluation of the expression 
from which the FUNCTION call was made. 

5. Upon return from a SUBROUTINE subprogram the 
values assigned to the arguments in the 
SUBROUTINE are available for use by the calling 
program. 

Example: 

Calling Program Unit 



CALL SUBR(Z9,B7,R1) 



Called Program Unit 

SUBROUTINE SUBR(A,B,C) 
READ(3,7) B 
A - B**C 
RETURN 
7 FORMAT (F9. 2) 
END 

In this example, 29 and B7 are made available to 
the calling program when the RETURN occurs. 

! i 

9.11 PROCESSING ARRAYS IN SUBPROGRAMS \ 

If a calling program passes an array name to a f 
subprogram, the subprogram must contain the 
dimension information pertinent to the *rray. a 
subprogram must contain array declarators if any oi 
its dummy arguments represent arrays or array 
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elements. 



For example, a FUNCTION subprogram designed to 
compute the average of the elements of any one 



dimension array might be the folowmg: 



Calling Program Unit 
DIMENSION 21 (50), 22 (25) 



A1 - AVG(21»50) 



A2 - A1-AVG(22,25) 



Called Program Unit 

FUNCTION AVG(ARG,I) 
DIMENSION ARG(50) 
SUM -0.0 
DO 20 J«1 ,1 
20 SUM » SUM + ARG(J) 
AVG - SUM/FLOAT (I) 
RETURN 
END 

Note that actual arrays to be processed by the 
FUNCTION subprogram are dimensioned in the calling 
program and the array names and t ^ eir c , T *^!f*i 
dimensions are transmitted to the FUNCTION 
subprogram by the FUNCTION subprogram reference. 
The FUNCTION subprogram itself contains a dummy 
array and specifies an array declarator. 

Dimensioning information may also be passed to the 
subprogram in the paramater list. For example: 
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) 

Calling Program Unit \ r 

DIMENSION A(3,4,5) 



CALL SUBR(A,3,4,5) 

• 

END 

Called Program Unit 

SUBROUTINE SUBR(X,I , J,K) 
DIMENSION X(I,J,K) 



RETURN 
END 

It is valid to use variable dimensions onlg when 
£na array name and all of the variable ^Imtnsions 
Trl dSmmy arguments . The variable dimensions must 
tl SJSS Integer. It is invalid to change the 
values P of a£y If ita variable dimensions within the ^ 
called program, 

9 12 BLOCK DATA SUBPROGRAMS 

the following form: 

BLOCK DATA [subprogram-name] 

S -S.S2 --? ™" t»-»™H! 

and DIMENSION statements and are subject to tne 
following considerations: ^ 

irstefinihe So^Ttatement even though they 
might not all be initialized. 

2. initialization of a.« in ^ re in h ^ e °BL0CK°DA?A 
block may be accomplished in one bu_ 

subprogram. 



. Page 97 

FORTRAN-80 Reference Manual 

3 There may be more than one BLOCK DATA 
x * subprogram loaded at any given time. 

4 Any particular COMMON block item should only be 
initialized by one program unit. 



Example: 



BLOCK DATA 
LOGICAL A1 

COMMON/BETA/B ( 3 f 3 ) /GAM/C ( 4 ) 
C0MM0N/ALPHA/A1,C,E,D 
DATA 8/1.1,2.5,3.8,3**36, 
12*0. 52, 1.V,C/1.2E0, 3*4.0/ 
DATA AV.TRUE/,E/-5.6/ 
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APPENDIX A 
Language Extensions and Restrictions 



The FORTRAN-80 language includes the following extensions to 
ANSI Standard FORTRAN (X3. 9-196&). 

1. If c is used in a 'STOP c' or 'PAUSE c* statement, 
c may be any six ASCII characters. 

2. Error and End-of-File branches may be *P« cifi ® d _Ji; n 
READ and WRITE statements using the ERR- ana end- 
options. 

3. The standard subprograms PEEK, POKE, INF, and OUT 
have been added to the FORTRAN library. 

4. Statement functions may use subscripted variables. 

5. Hexadecimal constants may be used wherever Integer 
constants are normally allowed. 

6. The literal form of Hollerith data (character 
string between apostrophe characters) is permitted 
in place of the standard nH form. 

7. Holleriths and Literals are allowed in expressions 
in place of Integer constants. 

» 

8. There is no restriction to the number of 
continuation lines. 

9. Mixed mode expressions and assignments are allowed, 
and conversions are done automatically. 

FORTRAN-80 places the following restrictions upon Standard 
FORTRAN. 

1. The COMPLEX data type is not implemented. It may 
be induced in a future release. 

2. The specification statements must appear in the 
following order: 

1. PROGRAM, SUBROUTINE, FUNCTION, BLOCK DATA 

2. Type, EXTERNAL, DIMENSION , 

3. COMMON 

4. EQUIVALENCE 



"^iSa^ 
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5 . DATA 

6. Statement Functions 

3. A different amount of computer memory is allocated 
for each of the data types: Integer, Real, Double 
Precision, Logical. 

4. The equal sign of a replacement statement and the 
first comma of a DO statement must appear on the 
initial statement line. 

Descriptions of these language extensions and restrictions 
are included at the appropriate points in the text or tnis 
document. 
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APPENDIX B 
I/O Interface 



Input/Output operations are table-dispatched to the driver 
routine for the proper Logical Unit Number. SLUNTB is the 
dispatch table. It contains one 2-byte driver address for 
each possible LUN. It also has a one-byte entry at the 
beginning, which contains the maximum LUN plus cme. The 
initial run-time package provides for 10 LUN s (1 - »0) , all 
of which correspond to the TTY. Any of these may be 
redefined by the user, or more added, simply by changing the 
appropriate entries in SLUNTB and adding more drivers. The 
runtime system uses LUN 3 for errors and other user 
communication. Therefore, LUN 3 should correspond to the 
operator console. The initial structure of SLUNTB is shown 
in the listings following this appendix. 

The device drivers also contain local dispatch tables. Note 
that SLUNTB contains one address for each device, yet there 
are really seven possible operations per device: 

1) Formatted Read 

2) Formatted Write 

3) Binary Read 

4) Binary Write 

5) Rewind 

6) Backspace 

7) Endfile 

Each device driver contains up to seven routines. The 
starting addresses of each of these seven routines are 
placed at the beginning of the driver, m the exact order 
listed above. The entry in SLUNTB then points to this local 
table, and the runtime system indexes into it to get the 
address of the appropriate routine to handle the requested 
I/O operation. 

The following conventions apply to the individual I/O 
routines : 

1. Location $BF contains the data buffer address for 
READS and WRITES. 

2. For a WRITE, the number of bytes to write is in 
location $BL. 

3. For a READ, the number of bytes, read should be 
returned in SBL. 
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4. All I/O operations set the condition codes before 
exit to indicate an error condition, end-of file 
condition, or normal return: 

a) CY«1, Z«don't care - I/O error 

b) CY-0, Z-0 - end-of-file encountered 

c) CY-0, 2»1 - normal return 

—_ *..•«,* e ,r«^m>hprks the condition codes after 
The runtime system checks the eo non-normal 

calling the driver. J-r tney *" w * , .w-i «o«»rified 
condition, control is passed to the lab •!•£«< e = 

by "ERR»" or "END-" or, if no laoei is *^ A 



5. 



fatal error results. 



,I0ERR i, a global routine which prints an ILLEGAL 
li° bf E «ed° N f "'there' arr'aome 1 ' operations not 
flowed on'a particu?" device (i.e. Binary I/O on 



a TTY). 

NOTE 



input operation to. write past the ena o 
tne buffer, essential runtime variables may 
be affected. The consequences are 
unpredictable. 
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0000 
0012 

0000 

0030 
0002 

0004 
0006 

000A 
CO0C 
GOOE 

0OOE 
00 UE 
OO0F 
0010 

0010 

0013 

0014 

0017 

001A 

00 1C 

301E 

0021 

0C22 

£025 

002* 

3G28 

0023 

032C 

U02D 

3J2E 

00 2r 

0030 

C033 

JO 3 5 

JJio 

0J39 

.'■MP 
0-.?4J 

wl/42 

Jw-i3 



0013 
0042 
0010 
0010 
000E 
000E 
000E 
Af 



C9 

C3 0000 * 



AF 

32 0000 
CD 0000 
E6 7F 
FE 0A 
CA 0017 

2A 0015 

26 00 

E3 

2A 0000 

19 

PI 

13 
E3 

22 0023 
FE 0D 



<& 



D 

FE 80 
QA 0G1~ * 
CD 0000 * 
12 
AT 

% Q031 • 



00100 

00200 

00330 

034A0 

00500 

00600 

00700 

00800 

O090O 

010U0 

•31100 

01200 

01300 

01430 

01500 

01630 

01700 

01800 

wl900 

02000 

02100 

02200 

02300 

02400 

02500 

02603 

02700 

02800 

02900 

03000 

03100 

03200 

03300 

03400 

03503 

03600 

03*00 

33333 

0390'.) 

04333 

04 ICC 

04200 

04300 

G440O 

04 500 

34 600 

04~0fl 

44603 



TTY I/O DRIVER 



Exr 

IRECER EQU 

ENTRY 

SDRV3: DW 
DW 
DW 
DW 
DW 
DW 
DW 

DRV3EM: XRA 

DRV3RE ECU 

DRV3BA H2U 

RET 

DRV3BW: JMP 

DRV3BR E?J 
DRV3FR: XRA 

STA 
DRV31: CALL 
ANI 
CPI 
JZ 
PUSH 
LHLD 
MVI 
XCHG 
LHLD 
DAD 
POP 
MOV 
INX 
XCHG 
SHLD 
CPI 
RZ 
J40V 
CPI 
JC 

CALL 
D6 
XRA 
RET 
DRV3FW: LDA 
ORA 



SIOERR, 

022 

$DRV3 

DRV3FR 

DRV3FW 

DRV3BR 

DRV3BW 

DRV3RE 

DRV3BA 

DRV3EN 

A 

DRV3EN 
DRV3EN 

SIOERR 

DRV3BW 
A 

SBL 

$TTYIN 

0177 

10 

DRV31 

PSW 

SBL 

H,0 

S3F 
D 

PSW 

M,A 

D 

SBL 
015 

A.L 

lis 

DRV31 
SERR 
IRECER 
A 

SBL 
A 



SBL, SBF, SERR, STTttN.STTYOT 
INP&T RECORD TOO LONG 

FORMATTED READ 

FORMATTED WRITE 

BINARY READ 

BINARY WRITE 

REWIND 

BACKSPACE 

f ENDFILE _^,^ m __ 

[THESE OPERATIONS ARE 

(JO-OPS FOR TTY 



tILLEGAL OPERATIONS 

• (PRINT £RRQR AND RETURN) 

•READ 

'•ZERO BUFFER LENGTH 
INPUT A CHAR 
JAND OFF PARITY 
; IGNORE LINE FEEDS 

•save rr 

•GET CHAR POSTT IN BUFFER 
•ONLY 1 3YTE 

;GET BUFFER ADDR 
?ADD OFFSET 
;GET CHAR 
;PUT IT IN BUFFER 
•INCREMENT S3L 

;SAVE IT 

•GR? 

'•YES— DONS 

•SBL 

|'4AX 13 DECJ4AL 128 

•get next char 

; input record too ldng 

;CLEAR FLAGS 
; BUFFER LENGTH 
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0001 
0k) 131 
0000 



0000 
0000 
0000 
0001 
0<J03 



03 
0U00 



0003 

0003 

0003 

0003 0000 * 

0005 , ^ 

00D5 0001 * 

0007 

000"? 0005 * 

0009 

0009 



0009 
0039 
0003 



0003 
Cj03 
0003 
J0J3 
JC3D 

Jb OF 
0011 

Obi 3 
Jul 5 
JJ15 



003' 



3000 * 

000B * 
C00D * 
000F * 
0011 * 
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00100 
00200 
00210 
00220 
00230 
00235 
00240 
00300 
004 00 
00500 
00600 

00700 
00800 
00900 
01000 
01100 
01200 
01300 
01400 
01500 
01510 
01600 
91602 
01604 
01605 
01606 
01608 
01700 
01800 
01900 

02000 

02100 
02200 
02300 
02400 
02500 
02630 
32-00 
32800 
02900 
03000 
03100 
03200 
03300 



^^DRIVER ADDRESSES FOR UUN'S 1 THPOUGH 10 



SUKTB: 



ENTRY 

EXT 

DB 

DW 

IFF 

DW 

ENDIF 

IFT 

EXT 

CW 

ENDIF 

DW 

IFF 

DW 

ENDIF 

IFT 

EXT 

DW 

ENDIF 

DW 

IFF 

DW 

DW 

DW 

DW 

DW 

ENDIF 

IFT 

EXT 

DW 

0W 

DW 

DW 

DW 

ENDIF 

END 



SLUNTB 

SDRV3 

013 

3DRV3 

LPT 

$DRV3 

LPT 

LPTDRV 

LPTDRV 

SDRV3 
DTC ^ 
$DRV3 

ETC 

SCMDRV 

$CMDRV 

$DRV3 
CSK ^ 
$DRV3 
SDRV3 
$DRV3 
$DRV3 
$DRV3 

DSK 

DSKDRV 

DSKDRV 

DSKDRV 

CSKDRV 

DSKDRV 

DSKDRV 



•MAX LUN + 1 „, __ irv , 

;THEY ALL POINT TO $DRV3 FOR UCW 



t -y 
■ri 

iDR'-i 



MAC80 1.0 

3001 



PAGE 



0039' 



DSK 0003 

LPTDRV 0303* 



JTC 0300 

DSKDRV 3013* 



SLUNTB 0000' 





MAC8B 1.0 


0046 
3347 


2A 0029 * 


004A 


3D 


0043 


F5 


034C 


3E 0D 


004E 


CD 0000 * 
7E 


0051 


0352 


FE 25^ , 


0354 


CA 0079 * 


005"? 


FE 31 


0059 


C2 0064 * 

3E 0C ^ 


C05C 


00 5E 


& §g4F * 


0361 


C3 0679 ' 


,5064 


3E 0A 


C366 


CD 00 5F * 


0369 


/E 


036A 
336C 


FE 20 

CA 0079 ' 


606F 


P£ 30 -« . 


3371 


C2 0079 ' 


0074 


3E 0A m 


0376 


CD 0067 * 


0379 


Fl 


03~A 


23 


007B 


C3 


307C 


£5 


037D 


7E 


007E 


23 


037F 


CD 0377 * 


0382 


Fl 


0333 


3D 


30S4 


C3 007B * 


0387 






MAC33 1.0 


SICERJ* 


0011* gL^ 

0018* *rnor 


DROFR 


0313' DRV3FV 


ORV3RE 


03 BE' DRV3BA 


DR3F.V2 


0079' DR3FW1 



PAGE 



04900 

05000 

05100 

05203 

05303 

05403 

05503 

05633 

05700 

05800 

05900 

06003 

06100 

06200 

06300 

06403 

06500 

06600 

06700 

06800 

06903 

07000 

07100 

07200 

07300 

07400 

07500 

07603 

07700 

07800 

07903 

03000 

08100 

08200 



PAGE 



0043* 
0080* 
0042' 
003E* 
0064* 



R2 

LHLD 
DCR 
PUSH 
MVI 
CALL 
MOV 
CPI 
JZ 
CPI 
JNZ 
MVI 
CALL 
JMP 
DR3FW1: MVI 
CALL 
MOV 
CPI 
JZ 
CPI 
JNZ 
MVI 

DR3FW2: POP 
INX 

DRV32! &SH 

MOV 

INX 

CALL 

POP 

DCR 

JMP 

END 



$3F 
A 

PSW 
A.13 

?rrvar 

A,M 
'+' 

DR3FW2 
•1* 

DR3FW1 

A, 12 

5TTYDT 

DR3FW2 

A, 10 

STTtQT 

A,M 

DR3FW2 

'0' 

DR3FW2 

A, 10 
$TTYOT 
PSW 
H 

PSW 

A,M 

H 

STTYOT 

PSW 

A _ 

DRV32 



jEWPTY BUFFER 
•BUFFER ADDRESS 
DECREMENT LENGTH 
•SAVE IT 
;CR 

JgETHRST CHAR IN BUFFER 
NO LINE FEEDS 



NCT FORM FEED 
FORM FEED 
OUTPUT IT 

LF 

GET CHAR BACK 

NO MOPE LINE FEEDS 

NO MORE LINE FEEDS 
LF 

GET LENGTH BACK 
INCREMENT PTR 

SAVE. CHAP. COUNT 
GET NEXT CHAR 
INCREMENT PTR 
■OUTPUT CHAR 
GET COUNT 
DECREMEtTT IT 
ONE MORE TL X 4E 



S3F 

IRBCER 

DRV3BR 

DRV3EN 

DRV32 



0048* 

0012 

0310' 

000E* 

0073' 



SERF 003D* 

$DRV3 0033 

DRV3BW 0313 

DRV31 0017' 



i 



FORTRAN-80 Reference Manual Page 102 

APPENDIX C 
Subprogram Linkages 



This appendix defines a normal subprogram call as generated 
by the FORTRAN compiler. It is included to facilitate 
linkages between FORTRAN programs and those written in other 
languages, such as 8080 Assembly. 

A subprogram reference with no parameters generates a simple 
-CAUL" instruction. The corresponding subprogram should 
return via a simple "RST." (CALL and RET are 8080 opcodes - 
see the assembly manual or 8080 reference manual for 
explanations. ) 

A subprogram reference with parameters results in a somewhat 
more complex calling sequence. Parameters are always P^sed 
by reference (i.e., ths thing passed is actually the address 
of the low byte of the actual argument). Therefore, 
parameters always occupy two bytes each, regardless of type. 

The method of passing the parameters depends upon the number 
of parameters to pass: 

1 If the number of parameters is less than or equal 
to 3, they are passed in the registers. Parameter 
1 will be in HL, 2 in DE (if present), and 3 in BC 
(if present) . 

2. If the number of parameters is greater than 3, they 
are passed as follows: 

1. Parameter 1 in HL. 

2. Parameter 2 in DE. 

3. Parameters 3 through n in a contiguous data 
block. BC will point to the low byte of this 
data block (i.e., to the low byte of parameter 
3). 

Note that, with this scheme, the subprogram must ^ ow ^ w 

expect in order to find them. 




oarameters . 



l - 



If the subprogram expects more than 3 parameters, and needs 
to transfer them to a local data area, there is a system 
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subroutine which will perform this transfer. This *^un«nt 
transfer routine is named $AT, and is called with HL 



"\ 



pointing to the local data area, BC pointing to the third 
plrameter, and A containing the number of argu .ents 
transfer (i.e., the total number of arguments minus 2). The 
subprogram is responsible for saving the first two 
parameters before calling $AT. For example, if a subprogram 
expects 5 parameters, it should look like: 



expe 

SUBR: 



XCHG 




SHLD 


P2 


MVI 


A, 3 


LXI 


H,P3 


CALL 


$AT 



;SAVE PARAMETER 1 

SAVE PARAMETER 2 

NO. OF PARAMETERS LEFT 

POINTER TO LOCAL AREA 

TRANSFER THE OTHER 3 PARAMETERS 



Body of subprogram! 





RET 




P1 : 


DS 


2 


P2: 


DS 


2 


P3: 


DS 


6 



RETURN TO CALLER 
SPACE FOR PARAMETER 1 
SPACE FOR PARAMETER 2 
SPACE FOR PARAMETERS 3-5 



^Ggf 



When accessing parameters in a subprogram, don't forget that 
they are pointers to the actual arguments passed. 



NOTE 

It is entirely up to the 
programmer to see to it that 
the arguments in the calling 
program match in number , type, 
and length with the parameters 
expected by the subprogram. 
This applies to FORTRAN 
subprograms, as well as those 
written in assembly languace. 



FORTRAN Functions (Section 9) return their values in 
registers or memory depending upon the type. Logical 
results are returned in (A) , Integers m (HL) , Reals in 
memory at *AC, Double Precision in memory *£ *£*£. $AC a nQ 
$DAC are the addresses of the low bytes of the mantissas. 
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APPENDIX D 
ASCII CHARACTER CODES 



DECIMAL CHAR. 



DECIMAL CHAR, 



DECIMAL 



CHAR. 



000 

001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 

021 

022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 



NUL 
SOH 
STX 
ETX 
EOT 

ENQ 

ACK 

BEL 

BS 

HT 

LF 

VT 

FF 

CR 

SO 

SI. 

DLE 

DC1 

DC 2 

DC 3 

DC4 

NAK 

SYN 

ETB 

CAN 

EM 

SUB 

ESCAPE 

FS 

GS 

RS 

US 

SPACE 
! 

M 

« 
$ 
% 



043 

044 

045 

046 

047 

048 

049 

050 

051 

052 

053 

054 

055 

056 

057 

058 

059 

060 

061 

062 

063 

064 

065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 

076 

077 

078 

079 

080 

081 

082 

083 

084 

085 



+ 

9 



/ 



1 

2 
3 
4 
5 

6 
7 

8 
9 

• 

< 

m 
> 

e 

A 

B 
C 
D 
E 
F 
G 
1! 

J 
K 

M 
N 
O 
? 

Q 
R 
S 
T 
U 



\ 



LF*Line Feed 



FF-Form Feed CR»Carriage Return 



086 


V 


087 


w 


088 


X 


089 


Y 


090 


Z 


091 


I 


092 


\ 


093 


] 


094 


A (or T ) 


095 


< (or «-) 


096 


• 


097 


a 


098 


b 


099 


c 


100 


d 


101 


e 


102 


f 


103 


9 


104 


h 


105 


i 


106 


J 


107 


k 


108 


1 


109 


m 


110 


n 


111 


o 


112 


P 


113 


q 


114 


r 


115 


s 


116 


t 


117 


u 


118 


V 


119 


w 


120 


X 


121 


y 


122 


z 


123 


t 


124 


1 


125 


I 


126 


/*»/ 


127 


DEL 


a Return 


DEL*Rubout 
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APPENDIX E 
FORTRAN-80 Library Subroutines 



Th* fortran-80 library contains a number of subroutines that 
2J "be ^ferenced D y the user ?ro- PORTl^ or ....nWy 
programs. In the . fc flowing .f scrxpt.ons ^C refers to^the 

'relers to the DOUBLE PRECISION ■«?^ 1 * to ^ AC ^ AC l i' the 
address of the low byte of the mantissa. $DAC+7 is 
address of the DOUBLE PRECISION exponent. 

All arithmetic routines (addition, ,' ubt "f i °"! 
All arittunewAw * .„«-- flB <.Ufion adhere to the 
multiplication, division, exponentiation) aanere 

following calling conventions. 

1. Argument 1 is passed in the registers: 
Integer in [HL] 

Real in $AC 
Double in $DAC 

2. Argument 2 is passed either in registers, or in 

memory depending upon the type: 



a. 



Integers are passed in (HL] , or [DE] if 
[HL] contains Argument 1. 



b. Real and Double t**^ "™^*^ 
passed in memory pointed to by IHLj . 
([HL] points to the low byte of tne 
mantissa. ) 
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The following arithmetic routines are contained in the 
Library: 



Function 


Name 
$AA 


Argument 1 Type 
Real 


Argument 2 Type 


Addition 


Integer 




$AB 


Real 


Real 




$AQ 


Double 


Integer 




$AR 


Double 


Real 




$AU 


Double 


Double 


Division 


$D9 


Integer 


Integer 




$DA 


Real 


Integer 




$DB 


Real 


Real 




$DQ 


Double 


Integer 




$DR 


Double 


Real 




IDU 


Double 


Double 


Exponentiation 


$£9 


Integer 


Integer 




SEA 


Real 


Integer 




IEB 


Real 


Real 




$EQ 


Double 


Integer 




$ER 


Double 


Real 




$EU 


Double 


Double 


Multiplication 


$M9 


Integer 


Integer 




$MA 


Real 


Integer 




1MB 


Real 


Real 




$MQ 


Double 


Integer 




*MR 


Double 


Real 




$MU 


Double 


Double 


Subtraction 


*SA 


Real 


Integer 




$SB 


Real 


i\x£ a x 




$SQ 


Double 


Integer 




$SR 


Double 


Real 




$5U 


Double 


Double 



"< 
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• A+t\ toz converting 
• • i Tihrarv routines are P rovl **° s passed to and 
Additional Library ro Argu ments are * lwa ** P appr opriate 
between value types. "^ routines in the appj. r 
returned by these conversion routine 

registers: 

Logical in [A] 

Integer in [HLl 
, Real in I AC 
' Double in IDAC 



Name 

$CA 
ICC 
|CH 
$CJ 
|CK 
$CX 
ICY 
|CZ 



Function 

Integer to * ea J 
Integer to Double 
Real to Integer 
Real to Logical 
Real to Double 
Double to Integer 
Double to Real 
Double to Logical 



FORTRAN-80 Reference Manual Pa 9 e 10B 

INDEX 



Arithmetic Expression • . . . 25-26,. 47 
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Computed GOTO i 4 "1f 
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DIMENSION 20, 34, 37, 96 

Disk Files 59 
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Line Format J 
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LUN 54, 58, 100 

- 22 
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Nested *1 .. 
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25 
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PEEK II 
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Ran ? '. 56, 58, 65, 74..7B-80 

*^° ' i ! . . 14, 19, 23 

Real • •••••••••-•? 
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RETURN *'' 

REWIND 
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SECTION 1 
MACRO-80 Assembler 



Assembly language programs and ^routines are ^sembled 
with MACRO-80. Just as the FORTRAN compiler generates 
relocatable object code from a FORTRAN program, MACRO-80 
generates relocatable object code from an a* 5 *^, 1 * ^ u *£* 
program. Running KACRO-80 is very similar *° ™™^ $£ 
FORTRAN compiler, and the command format is identical. Tne 
default extension for a MACRO-80 source file is /MAC. 



1.1 



,i When you give TRSDOS the command 



^gS. : .? 



msfc 






><disk@tte #1 ntust'beiri the disk drive), you are 
running the MACRO-80 assembler. When the "sembler 

^Hs ready to-^ccept commands, . it prompts tne user 
Ma*hcxan i§steriflw--: :fp-exi|-the assembler, use tne 

?"t<break> 1cey. 



:4Cbnat&d ttiM ^r« «Xso supported by MACRO 80. 
^fte£c executing r> command, line, the assembler 
Automatically exits to the operating system. 






■f*^ -«. • - ~~..fc_ — >• ■ — -1-. 



1.1.1 . JCommand Form at , J^-^ • ^^^ " ;£--_. 

:: |^"ai^^ltr : ioimtnd r ^Sveys;the name of th« source 

^file4you^4int St©\ assemble, and what options you 

- - ^wrnt ' to -«■•*• * Her¥;is fche-fprmat for an assembler 

■ y4<^^nd J^i^e^^y^^^iiT^ic^ optional) : 

tobj.ct3l|en^i!|i|i"«%inf ; fil«£a|elf8oBrc« fxlename [-switch 



.] 






« ifer* 35*=^. ^£5- ~ ~. ^-*fe:-~-.-- ** -ate.-* >Ji --^- ^- «V-*.-» 



i|l£l |n&^I:'f|sf:W|fn TRSOOS filename 

w Utt.ilni *--'**•/ assembler •■ *««*« 
Extensions, "it is not necessary to speciry 

Jn'-bxtenilon^n: an^.assembler command. 









c 
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Let's look individually at each part of the 
assembler command: 

1. Object filename 

To create a relocatable object file, this part 
of the command must be included. It is simply 
the name that you want to call the ob 3*ct file. 
The default extension for tne object filename 
is /REL. 

2. Listing filename 

To create a listing file, this part of the 
command must be included. It is simply the 
name that you want to call the listing^ f ile. 
The default extension for the listing *ne is 
/LST. 

3. Source filename 

An assembler command must always include a 
source filename — that is how the assembler 
"knows" what to assemble. It is simply the 
name of a MACRO-30 program you have saved on 
disk. The default extension for a MACRO-8Q 
source filename is /MAC. The source filename 
is always preceded" by an equal sign in an 
assembler command. 

Examples Casterisk is typed by M80) : 

*«TEST Assemble the program TEST/MAC 

without creating an object 
file or listing file. 

♦TEST TEST-TEST Assemble the program 

TEST/MAC. Create a reloca- 
table object file called 
TEST/REL and a listing file 
called TEST/LST. 

* TE C T PASS-TEST.PASS Assemble the program 
' " * TEST/MAC. PASS and create a 

listing file called 
TEST/LST. FASS (No object 
file created.) 

♦TESTOBJ-TEST Assemble the program TEST/MAC 

and create an object file 
called TESTCBJ/REL. (No 
listing file created.). 

4. 




More than one switch may be used in the same 
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command. The available switches are: 
V Switch Action 

Print all listing addresses in 
octal. 

H Print all listing addresses in 
hexadecimal (default condition) . 

C Force generation of a cross 
reference file. 

Z Assemble Z80 (Zilog fornefft) 
mnemonics (default condition). 

1 Assemble 8080 mnemonics. 

Examples: 

*CT M£,CT.ME»CT.ME-0 Assemble the program 

CT/MAC.ME. Create a listing 
file called CT/LST.ME and 
an object file called 
CT/REL.ME. The addresses 
in the listing file will 
be in octal. 

•LT.LT-LT-C Assemble the program LT/MAC. 

Create an object file called 
LT/REL, a listing file 
called LT/LST, and a 
cross reference file called 
LT/CRF. (See Section 1.12.) 

1.1.2 Input/Output Device Names_ 

In the commands discussed so far, it is assumed 
that all files are read from and written to the 
disk. To use an I/O device other than the J »{' 
specify the device name in place of the filename in 
the assembler command. 

The device names supplied by TRSDOS are: 

*KI Keyboard Input 
*DO Display Output 
*PR Printer Output 

(•DO and *PR are available only with TRSDOS Version 
2.2 or later.) 
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Examples: 

TEST,*PR«TEST Assemble the .P^^T^alle^' 

Create an ob}ect file caliea 
TEST/MAC and output the 
listing file, TEST/LST, at 
the printer. 

TEST,*DO«TEST Assemble the program TEST/MAC. 

Create an object fxie can-a 
TEST/MAC and output the 
listing file, TEST/LST at 
■ the vide* 1 * display. 

«# K I KI is used only if you 

' want to input a source file 

from the keyboard. This 
command assembles the source 
file read from the 
keyboard without creating 
a REL or LST file. 

1.2 Format of MACRO-80 Source Files 

in general, MACRO-80 accepts a so «« JilJ ^J |. 

almost identical to ■°? r « r ^ L lines Q f up to "^ 
compatible assemblers. Input source lines or up 
132 characters in length are acceptable. 

usrBn fln oreser ves lower case letters in quoted 
KACRO-80 P r ® se ^II ^_ All symbols, opcodes and 
strings and comments . hlL */ case * will b e 
pseudo-opcodes typed in lower 
converted to upper case. 

NOTE 

- «n a inri'id^s line numbers 
If the source file incua-s n» 
from an editor, each byte of the line 
number must have the high bit on. Line 
numbers from Microsoft's EDIT-90 editor are 
acceptable. 



1.2.1 Statements 

#n , t in nut to MACRO-80 consist of 
Source files input ww 
statements of the form: 

i r jrM.'-neptsI [; comment] 
[label:!:]] (operator] [arguments] _ 

*.-«« «f fhp IS T S assembler $ controls 
With the exception of the IS-& neC essary that 
(see Section 1.10) # lt: lb 
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statements begin in column 1. Multiple blanks or 
tabs may be used to improve readability. 

If a label is present, it is the first item in the 
statement and is immediately followed by a colon. 
If it is followed by two colons, it is declared as 
PUBLIC (see ENTRY/PUBLIC, Section 1.5.10). For 
exxnple: 

FOO : : RET 

i, equivalent to 

PUBLIC FOO 
FOO: RET 

The next item after the label (or the first item on 
the line i, no label is present) is an operator. 
An operator may be an opcode (8080 or Z80 
mnemonic), pseudo-op, macro call or expression. 
The evaluation order is as follows: 

1. ' Macro call 

2. Opcode/Pseudo operation 

3. Expression 

Instead of flagging an expression as an error, the 
assembler treats it as if it were a DB statement 
(see Section 1.5.4). 

The arguments following the operator will, of 
course, vary in form according to the operator. 

A comment always begins with a semicolon and ends 
with a carriage return. A comment may be a line by 
itself or it may be appended to a line that 
contains a statement. Extended comments can be 
entered using the .COMMENT pseudo operation (see 
Section 1.5. 19) . 



1.2.2 Symbols 

MACRO-80 symbols may be of any length, however, 
only the first six characters are ^9^" nt - The 
following characters are legal in a symbol. 

A-Z 0-9 % • \ ? e 

The underline character is also legal in a symbol. 
IsymSol may not start with a digit. When a symbol 
ic read lower case is translated into upper case. 
If a symbol reference is 'followed by ## it is 
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declared external (see also the EXT/EXTRN 
pseudo-op, Section 1.5.12). 

1.2.3 Numeric Constants 

The default base for numeric constants is decimal. 
This may be changed by the .RADIX pseudo-op (see 
Section 1.5.21). Any base from 2 (binary) to 16 
(hexadecimal) may be selected. When the base is 
greater than 10, A-F are the digits foll ? wl |J9 f; 
If the first digit of the number is not numeric 
(i.e., A-F), the number must be preceded by a zero. 
This eliminates the use of zero as a leading digit 
g^octaT ~consta"ntsT as in previous versions o£ 
MACRO- 80. 

Numbers are 16-bit unsigned quantities. A number 
is always evaluated in the current radix unless one 
of the following special notations is used: 

nnnnB Binary 

nnnnD Decimal 

nnnnO Octal 

nnnnQ Octal 

nnnnH Hexadecimal 

X'nnnn' Hexadecimal 

Overflow of a number beyond two bytes is ignored 
and the result is the low order 16-bits. 

A character constant is a string comprised of zero, 
one or two ASCII characters, delimited by quotation 
marks, and used in a non-simple expression. For 
example, in the statement 



DB 'A 1 ♦ 1 

•A 1 is a character constant. But the statement 
DB 'A' 

uses 'A' as a string because it is in a simple 
expression. The rules for character constant 
delimiters are the same as for strings. 

i- -i-^» ^«««^an*« romorised of one character has 
A character constant compriseu u* w -w.rarter 
as its value the ASCII value of that character. 
That is the high order byte of the value is zero, 
Ind the low order byte is the ASCII value oe 
character. For example, the value of the constant 
•A' is 41H. 

A character constant comprised o£ two <**"*"" 
has as its value the ASCII value of the first 



^ * 
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character in the high order byte and the ASCII 
value of the second character in the low order 
byte. For example, the value of the character 
constant "AB" is 41H*256+42H. 



1.2.4 Strings 

A string is comprised of zero or more characters 
delimited by quotation marks. Either single or 
double quotes may be used as string K del i m ^? r ?£ 
The delimiter quotes may be used as characters ir 
they appear twice for every character occurrence 
desired. For example, the statement 

DB "I am ""great"" today" 

stores the string 

I am "great" today 

If there are zero characters between the 
delimiters, the string is a null string. 

1.3 Expression Evaluation 

1.3.1 Arithmetic and Logical Operators 

The following operators are allowed in expressions. 
The operators are listed in order of precedence. 

NUL 

LOW, HIGH 

*, /, MOD, SHR, SHL 

Unary Minus 

+ / - 

EQ, NE, LT, LE, GT , GE 

NOT 

AND ! 

OR, XOR 

Parentheses are used to change the order of 
precedence? During evaluation of an expression a 
soon as a new operator is encountered - t" 
precedence less than or equal to the last operate. 
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encountered, all operations up to the new operator 
are performed. That is, subexpressions involving 
operators of higher precedence are computed first. 

All operators except +,-,*,/ must be separated 
from their operands by at least one space. 

The byte isolation operators (HIGH, LOW) i?® 1 ?^ 
the high or low order 8 bits of an Absolute 16-bit 
value. If a relocatable value is supplied as an 
operand, HIGH and LOW will treat it as if it were 
relative to location zero. 



1.3.2 Modes 

All symbols used as operands in expressions are in 
one of the following modes: Absolute, Data 
Relative, Program (Code) Relative or COMMON. (See 
Section '1.5 for the ASEG,CSEG, D?EG and COMMON 
pseudo-ops.) Symbols assembled under the ASEG, cseg 
(default), or DSEG pseudo-ops are in Absolute, Code 
Relative or Data Relative mode res P ectlv *^- ™d 
number of COMMON modes in a program is determined 
bv the number of COMMON blocks that have been named 
with the COMMON pseudo-op. Two COMMON symbols are 
not in the same mode unless they are in the same 
COMMON block. 

In any operation other than addition or 
subtraction, the mode of both operands must be 
Absolute. 

If the operation is addition, the following rules 
apply : 

1. At least one of the operands must be Absolute. 

2. Absolute + <mode> • <mode> 

If the operation is subtraction, the following 
rules apply: 

1 . <mode> - Absolute - <mode> 

2. <mode> - <mode> « Absolute 

where the two <mode>s are the same. 

Each intermediate step in f^™^ ?^ f *r 
expression must conform " r«£.d For example, 
modes, or an error will be generated. tor "» f < 
i? FOO, BA2 and ZAZ are three Program Relative 
symbols, the expression 



Microsoft Utility Software P&qe 13 



FOO + BAZ - ZAZ 

will generate an R error because the first step 
(FOO + BAZ) adds two relocatable values. (One of 
the values must be Absolute,) This problem can 
always be fixed by inserting parentheses. So that 

FOO + (BAZ - 2AZ) 

is legal because the first step (BAZ - ZAZ ) 
generates an Absolute value that is then added to 
the Program Relative value, FOO. 



1.3.3 Externals 

Aside from its classification by mode, a symbol is 
either External or not External. (See EXT/EXTRN, 
Section 1.5.12,) An External value must be 
assembled into a two-byte field. (Single-byte 
Externals are not supported.) The following rules 
apply to the use of Externals in expressions: 

1. Externals are legal only in addition and 
subtraction. 

2. If an External symbol is used in an expression, 
the result of the expression is always 
External. 

3. When the operation is addition, either operand 

(but not both) may be External. 

4. When the operation is subtraction, only the 
first operand may be External. 
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1.4 Opcodes as Operands 

8080 opcodes are valid one-byte operands. Note 
that only the first byte is a valid operand. For 
example: 



MVI 


A,IJMP) 


AD I 


tCPD 


MVI 


B, (RNZ) 


CPI 


tINX H) 


AC I 


(LXI B) 


MVI 


C,MOV A,B 



Errors will be generated if more than one byte is 
included in the operand — such as (CPI 5), lxi 
B,LABEL11 or CJMP LABEL2) . 

Opcodes used as one-byte operands need not be 
enclosed in parentheses. 

NOTE 
Opcodes are not valid operands in Z80 mode. 



1.5 Pseudo O perations 

1.5.1 ASEG 

ASEG 

ASEG sets the location counter to an absolute 
segment of memory. The location of the absolute 
colter will be that of the last ^EG (default is 
0), unless an ORG is done after the ASEG to change 
the location. The effect of ASEG is also achieved 
by using the code segment (CSEG) pseudo operation 
and the -P switch in LINK-80. See also Section 
1.5.27. 



1.5.2 COMMON 



COMMON /<blocic name>/ 




beginning of the area so w*«w ^'^-"-"T-^ rf 
the FORTRAN COMMON statement is main "ined. ir 
<block name> is omitted or consists of »P*«^ ti ^ 
is considered to be blank common. See also Section 
1.5.27. 
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L 



1.5.3 



CSEG 



CSEG 



CSEG sets the location counter to the code relative 
seament of memory. The location will be that of 
thflast ?SEG (default is 0) , unless an ORG is done 
after the CSEG to .change the location. CSEG is tne 
default condition of the assembler the INTEL 
assembler defaults to ASEG) . See also Section 
1.5.27. 



1.5.4 Define Byte 

DB 



DB 



<exp>[,<exp>. ..] 

<string> [ <string> . . . ] 



The arguments to DB are either •J*""*™* " 

strinas DB stores the values of the expressions 
r/thrcharLter, of the "rin,. in -»c cess.ve 
memory locations beginning witn tne *-u Ai 
location counter. 

Expressions must evaluate to one byte. (If the 
high byte of the result is -or 255, no error is 
given; otherwise, an A error results.) 

Strings of three or more characters may not be used 
In expressions (i.e., they must be immediately 
followed by a comma or th • «d of th e ^>; der T o e f 
characters in a string are storea in w* «* 
appearance, each as a one-byte value with the high 
order bit set to zero. 



Example: 

0000' 
0002' 
0003' 



4142 

42 

41 42 43 



DB 

DB 
DB 



•AB 1 

■AB* AND 0FFH 
•ABC 



1.5.5 Define Character 



DC 



<string> 




with the high order bit set to one. An en 
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result if the argument to DC is a null string. 

1.5.6 Define Space 

DS <exp> 

DS reserves an area of memory. The value of <exp> 
gives the number of bytes to be allocated. All 
names used in <exp> must be Previously defined 
(i.e., all names known at that point on pass 1). 
Otherwise, a V error is generated during pass 1 and 
a U error may be generated during P a " *• "*" 
error is not generated during pass 2, a phase error 
will probably be generated because the DS generated 
no code on pass 1 . 

1.5.7 DSEG 

DSEG 

DSEG sets the location counter to the D * ta * ela ^ v * 
segment of memory. The location of the data 
relative counter will be that of the last DSEG 
"efault is 0), unless . an ORG is done after the 
DSEG to change the location. See also Section 
1.5.27. 




DW stores the values of the expressions in 
successive memory locations beginning with the 
current location counter. Expressions 
evaluated as 2-byte (word) values. 



1.5.9 END 

END [<exp>] 




address is passed to LINK-80 for that program. 
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1.5.10 ENTRY/PUBLIC * 



ENTRY <name>[ ,<name>. . . I 

or 
PUBLIC <name> [ ,<name>. . . ] 

ENTRY or PUBLIC declares each name in the list as 
internal and therefore available for use by this 
program and other programs to be load ^ 
concurrently. All of the names in the list must be 
defined in the current program or a U error 
results. An M error is generated if the name is an 
external name or common-blockname. 



1.5.11 EQU 



<name> EQU <exp> 



EQU assigns the value of <exp> to <name>. * f <e *P> 
is external, an error is generated. If <name> 
already has a value other than <exp>, an M error is 
generated. 



1.5.12 EXT/EXTRN 



EXT <name>( , <name>. . . ] 

or 
EXTRN <name> [ ,<name>. . . J 



EXT or EXTRN declares that the name(s) in the list 
are external (i.e., defined in a different 
program) . If any item in the list references a 
name that is defined in the current program, an M 
error results. A reference to a name where 
name is followed immediately by two pound signs 
(e.g., NAMEil) also declares the name as external. 



1.5.13 NAME 

NAME ('modname*) 



NAME defines a name for the module. J^* <** f 1 "* 
six characters are significant in a module n ame l * 
Ldule name may also be defined «th th * ^ 
pseudo-op. In the absence of both the nak- »"° 
TITLE pseudo-ops, the module name is created from 
the source file name. 



Paae 1 8 
Microsoft Utility Software * 

1.5.14 Define Origin 

ORG <exp> 

The location counter is set to th * ^* °* J**^ 
and the assembler assigns *«*•«*•* *£ must be 
with that value. All names used in <exp> must be 
known on pass 1 , and the value must either be 
absolute or in the same area as the location 
counter. 

1.5.15 PAGE 

PAGE [<exp>] 

PAGE causes the assembler to start a £^ om °f^ 
Dace The value of <exp>, if included, becomes tne 
£*v oaae size (measured in lines per page) and must 
new page size im"'^^ Th* default page size 
be in the range 10 to 255. Tn ^.^ ra ^^ p l forTn 
is 50 lines per page. The assembler • puts a rorm 
feed character in the listing file at the end of a 
page. 

1.5.16 SET 

<name> SET <exp> 

SET is the same as EQU, except no error is 
generated if <name> is already defined. 

1.5.17 SUBTTL 

SUBTTL <text> 

SUBTTL specifies a subtitle to *>•"•*•* on the 
line after the title (see TITLE, Section ^-J.is) °£ 

each page heading. <text > /l^^ay Vgiven ?° 
characters. Any number of SUBTTLs may De gi 

a program. 

1.5.18 TITLE 

TITLE <text> 

m^mrt? „ M ^fiA« * title to be listed on the first 
TITLE specifies a title w " TITLE is 
line ~* •»i-h naae. If more tnan one -^^ 

9' 

o: 

NAME 

or TITLE pseudo-op 

created from the source filename 
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\ 1.5.19 . COMMENT 



.COMMENT <delim><text><delim> 

The first non-blank character encountered after 
.COMMENT is ,the delimiter. The following <text> 
comprises a cogent block which continues until the 
next occurrence of <delimiter> is ^countered. \°l 
example, using an asterisk as the delimiter, the 
format of the comment block would be: 

.COMMENT * 

any amount of text entered 

here as the comment block 



; return to normal mode 

1.5.20 .PRINTX 

.PRINTX <delim><text><delim> 

The first non-blank character encountered after 
PRINTX is the delimiter. The following text is 
Usted on the terminal during assembly until 
another occurrence of the delimiter is •«^"J^" d ; 
' %RINTX is useful for displaying progress through a 
long assembly or for displaying the value or 
conditional assembly switches. For example. 

IF CPM 

.PRINTX /CPM version/ 

ENDIF 



NOTE 

.PRINTX will output on both passes. If 
only one printout is desired, use the IFi 
or IF2 pseudo-op. 



V. 
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1.5.21 .RADIX 

.RADIX <exp> 

The default base (or radix) for all constants is 
decimal. The .RADIX statement allows the detauit 
radix to be changed to any base in the range 2 to 
16. For example: 

LXI H,0FFH 
.RADIX 16 
LXI H,0FF 

Tne two LXIs in the example are identical. The 
<exp> in a .RADIX statement is always in decimal 
radix, regardless of the current radix. 

1.5.22 .REQUEST 

.REQUEST <filename>[,<filename">. . .] 

.REQUEST sends a request to the LINK-80 loader to 
search the filenames in the list for undefined 
globals before searching the FORTRAN library. The 
filenames in the list should *>• in *^ f°™°* 
legal MACRO-80 symbols. They should not include 
filename extensions or disk- specif ications. The 
LINK-80 loader will supply its .default extension 
and will assume the currently selected disk drive. 

1.5.23 .230 

230 enables the assembler to accept Z80 opcodes. 

This is the default condition. Z80 mode may also 

be set by appending the Z switch to the MACRO-80 
command string — see Section 1.1.2. 

1.5.24 .8080 

.8080 enables the assembler to accept 8080 opcodes. 

8080 mode may also be set by appending the I iw ch 

to the MACRO-80 command string — see Section 
1.1.2. 
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1.5.25 Conditional Pseudo Operations 

The conditional pseudo operations are: 



True if <exp> is not 0. 
True if <exp> is 0. 
True if pass 1 . 
True if pass 2. 

True if <symbol> is defined or 
has been declared External. 

True if <symbol> is undefined 
or not declared External. 

True if <arg> is blank. The 
angle brackets around <arg> 
are required. # 

True if <arg> is not blank. 
Used for testing when dununy 
parameters are supplied. The 
angle brackets around <arg> 
are required. 

All conditionals use the following format: 

IFxx [argument] 



XF/IFT <exp> 
IFE/IFF <exp> 
IF1 
IF 2 

IFDEF <symbol> 

IFNDEF <symbol> 
IFB <arg> 

IFNB <arg> 



[ELSE 



END IF 



) 



S'SSlS v^rror. ,«d incorrec, ^-^finvo^ 
IF, XFT, IFF, and IFE the «*P re "t . . and the 

i ,--. i^Ki^h were previously aermea o» iw 
values whicn were P*" , ' jf the name is 
expression must be absolute. n l " B „ on «.iders 
expic39iw» ..... __. TFNDEF . oass 1 considers 
defined after an IFDEF or IFNDE >' P« s de fined on 
the name to be undefined, but it will De a 

pass 2. 



ELSE „ flr ,Hon mav optionally be 

Each conditional pseudo operation may °P£ allows 

useS with the ELSE P seudo ^^ w ^ n 0n t ^. lC o P posite 
alternate code to be generate4_when_the^o PPf ^ & 

cond: 



with the ELSE pseudo op.-a^on ;"*"' osi i 
mate code to be ?^nerate4 g when the opposi 
lition exists. Only one ELSE is permits 
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■n IF, and an ELSE is always bound to 1 
■nt, open IF. A conditional with more 
; or an ELSE without a conditional will 



the most 
given ir, ana a» — -« c^dltional'with more than one 
recent, open I*.. J^cona ^^.^^ will cause a 
ELSE or an ELSE 
C error 



ENDIF 



S^S, must have a matchin, ENDIF to terminate^ 

SSS1SE& -sa^ts^enerated * the end o, 
each pass. An ENDIF without a matching IF causes 
C error. 



1.5.26 Listing Control Pseudo Operations 

Output to the listing file can be controlled by two 
pseudo-ops : 

.LIST and .XLIST 

Tf * lutina is not being made, these pseudo-ops 
If a liStl ^f " nOT: LIST is the default condition. 
have no effect. .itioj. ±» «-•*« . fth ;-rt 

When a .XLIST is encountered, scarce and °^ect 
wde iill not be listed until » .LIST xs 
encountered. 

- ,«.«„<- nf cross reference information is 
Th \ °??5S bv SIf and .XCREF, If the cross 
controlled by - c ^ *"° tio _ , 12 ) has not been 
reference facility (see Section ,i . ■ *; "* 
Invoked, .CREF and .XCREF h.v. no.f eg The 

default condition " - C *"; r . n ™ * intonation is 
encountered, no cross reference 
out F ut until .CREF is encountered. 

The output of ^ii^iiiiiii^^::^: js 

controlled by three pseudo-ops. .lj^, 
?XALL. .LALL lists the compljj" macro text fo r . 
expansions. .SALL lists only the oD^e 
produced by a macro and not *" text. s££, except 
default condition; it is similar to -S*^' " bie £ t 
a source line is listed only if it generates ocje 

code. 



1.5.27 Relocation Pseudo Operations 

^.,-a. *.- ,-,- A ai-» relocatable modules is one of 
IS: naior "features of ^CRO-80. Relocatable 
the ma^or r " tu 7 a ...„« «f easier coding and 
mo dules offerthe ^.nt.g.. of •« ^ difying 9 In 

f " ter ^f Possible to specify segments of 
addition, it is PO"i b i* ^T.ter be loaded into RAM 
assembled code that will -^er &e ioa {the Code 
f«-H» nara Relative segment) and RCM/fKun v »-* 
(the uata Reiauvc =» * do operations that 

Relative segment). The pseuao u H 



f 
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select relocatable areas are CSEG and DSEG. The 
ASEG pseudo-op is used to generate non-relocatable 
UbsolSte) cod!. The COMMON P«udo-op creates a 
common data area for every COMMON block that is 
named in the program. 

2?.tK sult «r"i.! or ..SL""KaS with a cits 

^maUcallfexecuted and the location counter n 

ST Cole £££^^""1 ~£ All 

the Code *•;•";« • y in be asse mbled into the 
subsequent instructions win dc «» 
Code Relative segment of memory until an *^ ° 
DSEG or COMMON pseudo-op is e* e ^ d ' th *° r tocafion 
the first DSEG encountered sets the £°^at 
: ftimtftr to location zero in the Data Reia ^^ 
counter to ^* ti following code is asembled 
segment of memory. Tne * OJ - x ^** 1 ' . • ,. , «. » fiS i G -.ed 
in the Data Relative mode, that is, it is assignee 
to the Data Relative segment of memory. « * 
:„ K :'„ nt cSEG is encountered, the locauion 
subsequent cstu is ■ location in 

counter will return to tne next "" 
the .Code Relative segment and so on. 

The ASEG. DSEG, CSEG pseudo-ops never have 

o^ranls?' Sf ^ wish to ^foR^sTa do-op 
of the location counter, use the ORG pseudo op. 

^anfHmif the value of the location counter may 
be changed' by use of the the ORG pseudo-op. The 
form of the ORG statement is: 

ORG <exp> 

where the value of <exp>.will be the new value of 
the location counter in the current moae. *± 
names used in <exp> must bj known on P... 1 *nd the 
value of <exp> must be either ^* olu £* °* _lL le , 
current mode of the location counter. For example, 
the statements 

DSEG 

ORG 50 ! 

,. vK- n»f» Relative location counter to 50, 
set the Data *«l*"; e f the Data Relative secant 

rel ative to the start q± w**g ~ 

of memory . 

~mmm 

I 

LINK -80 ,«.,*. r :| see Section 2 of this 

fHi^LINK-80 linking J oad " rt i"* Sc "i° creates each 
manual) combines the segments and orea 
relocatable module in ^nory wh •" ^« pr 9 
loaded. The origins of the r ^ l0 "; a ^ e J the 
Ire not fixed until the progrjM- l ^%jZ nd to 
origins are assigned by LINK-bu. in« 
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LINK-80 may contain user-specified origins through 
the use of the -P (for Code Relative) and -D (for 
Data and COMMON segments) switches. 

For example, a program that begins with the 
statements 



ASEG 

ORG 800H 



mode will 



and is assembled entirely in Ab»°lute mode wiii 
always load beginning at 800 unless the ORG 
statement is changed in the source «^«- «£ e ^ e 
the same program, assembled in Code Restive mode 

with no ORG statement, may be l^lS^aSL.M^ 
specified - address by appending the -P.<address> 
switch to the LINK-80 command string. 

1.5.28 Relocation Before Loading 

Two pseudo-ops, .PHASE and .DEPHASE, a^"^ *° 
bT located in one area, but executed only at a 
different, specified area. 

For example: 

0000' 

0100 CD 0106 FOO: 

0103 C3 0007' 

0106 C9 BA2: 

0007' C3 0005 ZOO: 

All labels within a .PHASE block are def ined as the 
absolute value from the origin of the phase area 
£e code, however, is loaded ^ '^^^thln 
m » from 0* in this example). The coae witnxn 
the block can later be moved to 10 OH and executed. 

1.6 "*£££! and Block Pseudo Operations 



.PHASE 


100H 


CALL 


BAZ 


JMP 


ZOO 


RET 




.DEPHASE 


JMP 


5 




character (IRPC) . A ; ac ^ h ° : " f ^ ro 
(MACRO) is also provided. f C £ v ° f t ^ eS * N ££ pseudo 
operations is terminated by, the ENDM p 

operation. 



1.6.1 Terms 

~~~«*>. «f Hi«cussion of macros and block 
For the purposes or aiscussiun w*. 
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3. 






->£=^Ft 






--^^^r-- 




operations, the following terms will be used: 

«i .Jn^ws i« used to represent a dummy parameter. 

1. <dummy> is usea to ***;*•* i ea al symbols that 
all dummy parameters are legax *y*"" w 
appear in thi body of a macro expansion. 

2. <dummyli.t> is a list of <dummy>s separated by 
commas • 

<arglist> is a Uit of "^'^im^erby'-ngle 

^ r ! CketS ; nn Saracters <<>* "r two conunas with 
intervening .characters iw « argument 

W intervening ^characters enter a null a g 
in the list. Otherwise an ar 9"™f n „. t ^ bv 
ih.racter or series of characters terminated Dy 
character^ """" Hith „„!« brackets that are 

neslSr^^en H <ar 3 uU e > ;, - the ^ ackete 
S&SBHS ' ! 5S W L •S" <ar1xist>r a (S- 

SSSSfi«*^»- '•'«•»;> ts^a'stec".. 9 such? 

acceptable. argument and is * a » , ""L.5" t " in c, 
HJnlafc enclosed ,^ brackets or^a 1"°"* # * tr ^|; 
lleaSng ,«|,jtr«ijihg sj*ces are deleted 

' 'argul&ents^ _-_"__ ~ f\~ A 
a ^<Dara»Xis5^i* ii«d *P "represent a list °* 

SelimTters .\*m zeguired, Ithe list x» 
Sby th*"*nd,*£ : linj^Jr.sft consent) . out w 

!or!^terS§g «»| »f^!" as Ascribed lor 

: C M rk*ti « *:• ir-Sfche ^ ~*ame ■ as GC5 5 I ? 
*«Slt>^!t«^^Wf, Section 1.6.5.) 









1ept~e-nph^»- 



-*-!*£ ■ 



■f -5 









i«P^5 



'2?. 






:.>••:> .-'?'!■.■ , 



££3lis_£ 




-"li^^-SI^-Ki^^ -ef^tateMfits ^tlfcween REP. ana *™j*' 
£|t:^?¥ ^ 1 -F@V ||^??lm^#^#<exp> is evaluated as a 
* r T J . -- repeate^f jg* 3 ^!* 1 ??^, l ~ ^JS v aXD > contains any 

£ l^^«^«5*l^«^jrS^*rft^-ah~error is generatea. 

r. external. BE J^t^inj^t* 1 ?* l : . * n et £ 

^Example %_ _ _ _ 7. ~ 



"'' .'./ .?-j-'--'-_-r/^'*ii 



(■ ' 






•^ v *^ i ^ifel^f^-tejSife^ £M& ?=5S*^ ""H^^f j^. 
••£ iS r?-m?S^ ^r^yj^ ?^£^ ' .3BM& ^-^^ j ' *~ 

' i- ^- -3=-. In? -few -m-iJ^-S?* -5ST.-3 
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1.6.3 IRP-ENDM 

IRP <dummy> f <arglist> 



ENDM 

The <arglist> must be enclosed in angle brackets. 
The number of arguments in the <argli3t> determines 
the number of times the block of statements is 
repeated. Each repetition substitutes the next 
item in the <arglist> for every occurrence of 
<dummy> in the block. If the <arglist> is null 
(i.e., O) , the block is processed once with each 
occurrence of <dummy> removed. For example: 

IRP X,<1,2,3,4,5,6,7,8,9,10> 
DB X 

ENDM 

generates the same bytes as the R£PT example. 



1.6.4 IRPC-ENDM 



IRPC <dummy>, string (or <string>) 



ENDM 

IRPC is similar to IRP but the arglist is replaced 
by a string of text and the angle brackets around 
the string are optional. The statements in the 
block are repeated once for each character in the 
string. Each repetition substitutes the next 
character in the string for every occurrence of 
<dummy> in the block. For example: 

IRPC X, 0123456789 
DB X+1 

ENDM 

generates the same code as the two previous 
examples. 



1.6,5 MACRO 



Often it is convenient to be able to generate a 
given sequence of statements from various places in 
a program, even though different parameters may be 
required each time the sequence is used.. This 
capability is provided by the MACRO statement. The 
form is 



4 
1 
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<name> MACRO <dummylist> 



ENDM 

where <name> conforms to the rules for forming 
symbols. <name> is the name thit will be u* ed to 
invoke the macro. The <dummy>s ^/l^laced) each 
the parameters that will be changed <^P^ ea ' *^e 
timethe MACRO is invoked The statements before 
the ENDM comprise the body of the n* cro ' ^ is 
assembly? the macro is expanded every time it is 
assemoj.y, vi*c **»»^ bptvt /tod /tppt the macro is not 
invoked but, unlike REPT/IRP/IRPC, tne wau 

expanded when it is encountered. 

The form of a macro call is 

<name> <paramlist> 

where <name> is the name supplied in the MACRO 
wnetw NiJBWB * «»^»m»t-^r* in- <Daramlist> will 
definition, and the ?* ra f **"* i^^ lis t> on a 
replace the <dummy>s in the MACRO <aummyxi» 
* e ^ xa w* w_.,.i The number of items in 
one-to-one basis. ,T n * ," v4mU«>d onlv bv the 
<dummylist> and <paramlist> is ^J"* °"£* ** u l ed 
l*nath of a line. The number of parameters usea 
wnen the macro Is called need not be the same as 
« the number of <dummy>s in <dummylx.t>. If there 

win be-made f null? The'assembled code will contain 
the macro expansion code after each macro call. 

NOTE 

A dummy parameter in a MACRO/REPT/IRP/IRPC 
is always recognized exclusively as a 
dummmy parameter. Register names such as A 
°™B will be changed in the expansion if 
they were used as dummy parameters. 
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Here is an example of a MACRO definition that 
defines a macro called FOO: 

F00 MACRO X 

Y SET 
REPT X 

Y SET Y+1 
DB Y 
ENDM 

EN DM 

This macro generates the same code as the previous 
three examples when the call 

FOO 10 

is executed. 

Another example, which generates the same code, 
illustrates the removal of one level of brackets 
when an argument is used as an arglist: 

FOO MACRO X 

IRP Y,<X> 

DB Y 

ENDM 
ENDM 

When the call 

FOO <1,2,3,4,5,6,7,8,9,10> 

is made, the macro expansion looks like this: 

IRP Y,<1, 2, 3, 4, 5,6,7,8,9,10> 

DB Y 

ENDM 

1.6.6 ENDM 

Every REPT, IRP, IRPC and MACRO pseudo-op must be 
terminated with the ENDM pseudo-op. Otherwise, the 
•Unterminated REPT/IRP/IRPC/MACRO' message is 
generated at the end of each pass. An unmatched 
ENDM causes an error. 



1.6.7 EXITM 

The EXITM pseudo-op is used to terminate a 
REPT/IRP/IRPC or MACRO call. When an EXITM is 
executed, the expansion is exited immediately and 
any remaining expansion or repetition is not 
•generated. If the block containing the EXITM is 
nested within another block, the outer level 



\( 
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continues to be expanded. 

1.6.8 LOCAL 

LOCAL <dummylist> 

The LOCAL pseudo-op is allowed only inside * JJ^RO 
definition. When LOCAL is executed, the """^ 
creates a unique symbol for each <dummy> in 
<duminylist> and substitutes that symbol *>r «ch 
occurrence of the <dummy> in the expansion. These, 
uniaue symbols are usually used to define a label 
within aTcro! thus eliminating multiply-defined 
labels on successive expansions of the macro, ine 
symbols created by the assembler range from . .0001 
to ..FFFF. Users will therefore want to ivoidthe 
form ..nnnn for their own symbols. If LOCAL 
statements are used, they must be the first 
statements in the macro definition. 

1.6.9 Special Macro Operators and Forms 

* The ampersand is used in a macro expansion to 
concatenate text or symbols. A .. dum ^ 
parameter that is in a quoted string will not 
be substituted in the expansion unless it is 
immediately preceded by I. To or, a symbol 
from text and a dummy, put fc between them. 
For example: 

ERRGEN MACRO X 

ERRORiX:PUSH B 

MVI B/fcX 1 

JMP ERROR 

ENDM 

In this example, the call ERRGEN A will 
generate: 

ERRORA: PUSH B 

MVI B,'A' 

JMP ERROR 

In a block operation, a comment Preceded by 
' ' two semicolons is not saved as part of the 
Lnansion (i.e., it will not appear on the 
expansion li -*'' TaTT \ A comment preceded 
listing even under .LALL) . A »n Reserved 
by one semicolon, however, will be preservec 
and appear in the expansion. 

, when an exclamation point is used in an 
araument. the next character l.s « nte f e 
argument, w "^ * n rt-<?-> are equivalent). 
literally (i.e., 1; ana <,> are c 4 
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NUL NUL is an operator that returns true if its 
argument (a parameter) is null. . The "£ aln °" 
of a line after NUL is considered to be the 
argument to NUL. The conditional 

IF NUL argument 

is false if, during the expans ion, the first 
character of the argument is anything other 
than a semicolon or carriage /•*" n ; " te rs 
recommended that testing for null parameters 
be do^e using the^IFB and IFNB conditionals. 

1 .7 Using 280 Pseudo-ops 

The following Z80 pseudo-ops are v ^lid. The 
faction of each pseudo-op is equivalent to that of 
its 8080 counterpart. 

Frmivalent 8080 ps eudo-op 
280 pseudo-op Equivalent. — — *— 

IFT 
COND tr„ 

ZiVrs^ END IF 

ENDC PAGE 

•EJECT It 

DEFB DS 

DEFW DB _ 

DEFM __— 

GLOBAL !^" C 

EXTEBNAL "'™ 

The format, where different j^onfo™ to £^8080 

ITsT f argument," (asTre DB and DW> , and DEFM is 
permitted a string or numeric argument (as is DB) . 
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1.8 



Sample Assembly 



DOS READY 

M80 
•EXMPL1 ,TTY:«EXMPL1 

MAC80 3.2 



PAGE 



0000' 
000V 
0002' 
0003' 


7E 
23 
66 
6F 


0004' 
0006' 


06 03 
AF 


0007' 


29 


0008' 
0009' 
OOOA' 


17 

85 
6F 


000B' 


05 


OOOC 
000F' 


C2 0006' 
EB 


0010* 
0011' 
0012' 
0013 1 


73 
23 
72 
C9 




MAC80 3.2 



00100 

00200 

00300 

00400 

00450 

00500 

00600 

00700 

00800 

00900 

01000 

01100 

01200 

01300 

01400 

01500 

01600 

01700 

01800 

01900 

02000 

02100 

02200 

02300 

02400 

02500 

02600 

02700 

02800 

02900 



;CSL3(P1,P2) 

;SHIFT PI LEFT CIRCULARLY 3 BIT 
\ RETURN RESULT IN P2 
ENTRY CSL3 
;GET VALUE OF FIRST PARAMETER 

MOV A , M 

INX H 

MOV H,M 

MOV L,A 
; SHIFT COUNT 

MVI B,3 

LOOP: XRA A 
; SHIFT LEFT 

DAD H 
; ROTATE IN CY BIT 

RAL 

ADD L 

MOV L,A 
; DECREMENT COUNT 

DCR B 
;ONE MORE TIME 

JN2 LOOP 

XCHG 
;SAVE RESULT IN SECOND PARAMETI 

MOV M , E 

INX H 

MOV M , D 

RET 

END 



CSL3 00001' LOOP 



PAGE 
0006' 



No Fatal error (s) 
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1.9 MACRO- 80 Errors 

MACRO-80 errors are indicated ^^^^^"If" 
flaa in column one of the listing iA * . , 

SElnTfil. isnot ^i^srprinterofdispt^roA 

s? t :s3ssr iis- 1 ?/ 1 : s* «* the m^-so 

Error Codes: 

A Argument error L correct format 

Argument to pseudc-op" not in ««. x i? 

or is out of range u f. T ' r \ 
PUBLIC 1; STAX H; MOV M,M? INX C) . 

C Conditional nesting error ELSEs 

ELSE without IF, ENDIF without II, two 

on one IF. 

D Double Defined symbol multiply 

Reference to a symbol wnicn . 

defined, 

E E 0s r=ran e ex° t ernal illegal in context (..,.. 
FOO SET N;J4EI#; MVI A,2-NAMEii). 

M SSliSaoS^"*.' 3 ^! which is multiply 
defined. 

N Number error Ainit. (e.g., 

Error in a number, usually a bad digit le.g., 

8Q) . 

Bad opcode or ^jectionable »^ ta £ £QU or 

ENDM, LOCAL outside a . b J°^' 5 ?„' an opcode 

^AO^Tr ^Ulx 3y in ta :n in expr eLion 

(MOV A.), , or °*" hpcis auotes, consecutive 

(mismatched parenthesis, 4 uo "-»' 

operators, etc). 

P Phase error . different on 

Value of a label or EQU name is different 

pass 2. 

q Questionable terminated 

Usually means a line «•.» a _ rnr / e a# MOV 
properly. This is a warning error (e.g. 

A,B,) . 

R rfleoafuse of relocation in expr «ion, such 
as abs-rel. Data, code and COMMON areas are 
relocatable. 
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( U Undefined symbol 



( \ 



A symbol referenced in an expressior is not 
defined. (For certain pseudo-ops, a v error 
is printed on pass 1 and a U on pass 2.) 

Value error . w.,»« i<-c 

On pass 1 a pseudo-op which must have its 

value known on pass 1 (e.g., .W^IX, -? AG *' 

DS, IF, IFE, etc.), has a value which is 

undefined. If the symbol is defined later in 

the program, a U error will not appear on the 
pass 2 listing. 



Error Messages: 

•No end statement encountered on input file' 

No END statements either it is missing or it 
is not parsed due to being in a false 
conditional, unterminated IRP/IRPC/REPT block 
or terminated macro. 

'Unterminated conditional' . . 

At least one conditional is unterminated at 

the end of the file. 

•Unterminated R£PT/IRP/IRPC/MACRO; 

At least one block is unterminated. 

[xxl [No] Fatal error (s) [,xx warnings] 

lXXl ihe number of fatal errors and -^ings The 

message is listed on the CRT and in the list 

file. 

1.10 Compatibility with Other Assemblers 

The IEJECT and *TITLE controls are P'ovtd.d for 
compatability with INTEL'S ISIS "sembler. The 
S^iiiir .ion must appear in column 1 only ir spaces 
o? £L» '«parate P ?he dollar .ign from the control 
word. The control 

$ EJECT 

is the same as the MACRO-80 PAGE pseudo-op. 
The control 

ITITLECtext') 

is the same as the MACRO-80 SUBTTL <text> 
pseudo-op. 

The INTEL operands PAGE £«•«£« -^"'SsEG 
errors when used with the MACRO-bu 
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pseudo-ops. These errors are warnings; the 
assembler ignores the operands. 

When MACRO-80 is entered, the def ault for the 
origin is Code Relative 0. With the INTEL ISIS 
assembler, the default is Absolute 0. 

With MACRO-80, the dollar sign ($) t« * , def i 1 ?^ 
constant that indicates the value of the location 
counter at the start of the statement. Other 
assemblers may use a decimal point °£ *n asterisk. 
Other constants are defined by MACRO-80 to have the 
following values: 

A- 7 B«0 C-1 D-2 E-3 

H-4 J>5 M-6 SP-6 PSW-6 

1 • 1 1 Format of Listings 

On each page of a MACRO-80 listing, the first two 
lines have the form: 

[TITLE text] MAC80 3.2 PAGE x[-y] 
[SUBTTL text] 

where : 

1. TITLE text is the text supplied with the TITLE 
pseudo-op, if one was given in the source 
program. 

2. x is the major page number, " hi _ c * \* 
incremented only when a for ™ fe , e <" 
encountered in the source file. (When using 
Microsoft's EDIT-80 text editor, a form f ee ^ 1S 
inserted whenever a page mark is done.) When 
the symbol table is being printed, x - s . 

3. y is the minor page number, wh ^ h nn j* 
incremented whenever the .PAGE pseudo-op is 
encountered in the source file, or whenever the 
current page size has been filled. 

4. SUBTTL text is the text supplied with the 
SUBTTL pseudo-op, if one was given m the 
source program. 

Next, a blank line is printed, followed by the 
first line of output. 

A line of output on a MACRO-80 listing has the 

following form: . . 

[crfi] [error] loc#m xx xxxx ... source 
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( If cross reference information is being output, the 

\ first item on the line is the cross reference 

number, followed by a tab. 

A one-letter error code followed by a space appears 
next on the line, if the line contains an error. 
If there is no error, a space is printed. 11 ««e 
is no cross reference number, the error code column 
is the first column on the listing. 

The value of the location counter appears next on 
the line. It is a 4-digit hexadecimal number of 
6-digit octal number, depending on whether the -u 
or -H switch was given in the MACRO-80 command 
string. 

The character at the end of the location counter 
value is the mode indicator. It will be one o. the 
following symbols: 

• Code Relative 

• Data Relative 

! COMMON Relative 
<space> Absolute 

• External 

Next, three spaces are printed *°llow«d by the 
assembled code. One-byte values are followed by a 
space. Two-byte values are followed by a mode 
indicator. Two-byte values are .printed in the 
opposite order they are stored in, i.e., tne "ign 
order byte is printed first. Externals are either 
the offset or the value of the pointer to the next 
External in the chain. 

The remainder of the line' contains the line of 
source code, as it was input. 

1.11.1 Symbol Table Listing 

In the symbol table listing, all the macro names in 
the program are listed •lP^ti«lly ; followed by 
all the symbols in the program, ^ ste ? 
alphabetically. After each symbol, a tab is 
printed, followed by the value of the symbol. If 
the symbol is Public, ah I is printed ^mediately 
after th« value. The next character printed will 
be one of the following: , 



/ * • 
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U Undefined symbol. 

C COMMON block name. (The "value" of the 
COMMON block is its length (number of 
bytes) in hexadecimal or octal.) 

* External symbol. 
<space> Absolute value. 

• Program Relative value. ' 
" Data Relative value. 

I COMMON Relative value. 

1.12 Cross Reference Facility 

The Cross Reference Facility is invoked by typing 
CREF80 at TRSDOS command level. In order to 
generate a cross reference listing, the assembler 
must output a special listing file with embedded 
control characters. The MACRO-80 command string 
tells the assembler to output this special listing 
file. (See Section 1.5.26 for the .CREF and .XCREF 
pseudo-ops.) -C is the cross reference switch. 
When the -C switch is encountered in a MACRO-80 
command string, the assembler opens a /CRF file 
instead of a /LST file. 

Examples: 

•-TEST-C Assemble file TEST/MAC and 

create object file TEST/REL 
and cross reference file 
TEST/CRF. 

*T,U»TEST-C Assemble file TEST/MAC and 

create object file T/REL 
and cross reference file 
U/CRF. 

When the assembler is finished, it is necessa j;Yto 
call the cross reference facility by. typing CREF80. 
(CREF80 is on diskette #1) CREF80 command format is: 

♦listing file-source file 

The default extension for the source file is /CXF . 
the -L switch is ignored, and any other switch will 
cause an error message to be sent to the terminal. 
Possible command strings are: . . 
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•-TEST Examine file TEST/CRF and 

generate a cross reference 
listing file TEST/LST. 

*T-TEST Examine file TEST/CRF and 

generate a cross reference 
listing file T/LST. 

Cross reference listing files differ from ordinary 
listing files in that: 

1. Each source statement is numbered with a cross 
reference number. 

2. At the end rft£ le »£2;' ^^^tth^the 
„S£ef, *Sf ^mnes °5S%,ich ' they are 
referenced or defined, ^ine "umbers wwhxch 

• the eymbol i« defined are flagged with f . 
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SECTION 2 
LINK-80 Linking Loader 

«^ ttmv 80 Linking Loader takes the relocatable object 
The LINK-80 Link! ng no F0 RTRAN compiler and MACR0-80 
files generated by the fgki*£« t J form that can be 
assembler and lojdj th- ^inK^Io automatically searches the 
executed. In addition, lin* ou library routines 

system library (FORLXB) ™* f J°*™ ^II references (i.e., 

needed to s^ 1 *** f * ^t*d program to subroutines in 
calls generated by the compilea program 

the system library) . 

» u 4*h a^veral loading options. 
LINK-80 P^vides the user « lt ^.J!^tfi.d locations, and 
Programs may be l°* d ** **"£. separated in memory. A 
prolra* areas ^ d *f»"utab?fm« educed by LINK-80 can 
memory image of the «^*££ t exte * s ion for the name of 
be written to aisx. Xilia J~z 
the executable file is /CMD. 

2.1 Running LINK-80 

When you give TRSDOS the command 

L80 



.diskette « Tl N K^O in ifnXin, Sk Iotder? ) ' When "e 
running the LINK-80 i * n ^*"Z iands it pr0 mpts the 
lo ader is ready to accept commandj^it.^ ^ 

user with an •**•"**• containing an E or G 

to TRSDOS after a command containing <brea}c> is 

switch (see Section 2,1.1), or atter a 

done at command level. 

Command lines are also supported by LINK-80. 

2.1.1 LINK-80 Commands 

-~a i-rt LINK-80 consists of a * tri " 9 ° 
A command to "** ?" Tne command format is: 
filenames and/or switches. m« 

[ filename1lC.switchin,filename2H-switch2]... 

All filenames must be in TRSDOS filename format. 

- «.ka rnmmand, it will load or 
After LINK-80 "=eives the command. .^ 

search (see the S sw^=n^ ^ reniained 
Then it will list all tne * asterisk, 
undefined, with each followea py « 
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Example: 
♦MAIN 

DATA 5200 5300 

SUBR1* (SUBR1 is undefined) 

DATA 5200 5300 



•SUBR1 
*-G 

Typically , 

s 



(Starts Execution 
to execute a FORTRAN 



• see below) 



prog 



ram 



and 



ypicany, w w „.-r 1-vnes the list of filenames 
subroutines, the user types tne A «^ execution 

followed by -G <b«gin •x.cution). Ba.ore «e 

^!; ffilS/lS) 1 to 1W sTtisry ar any Unresolved 
external ~£re^sl If you wish to first searc 



string. 



I 



2.1.2 LINK-80 Switches 

. ^* - u ^ehes mav be given in the LINK-80 

A number of switcnes may oc y . affecting the 

dash (-). These switches are: 



Switch 



E or E:Name 



G or G:Name 



Action 

Reset. Put loader back in its 
initial state. Use "* ** *?? 
loaded the wrong file bv p mi ^^| 
and want to restart. ;**■*" 
effect as soon as it is encountered 
in a command string. 

Exit LINK-80 and return to the 
Operating : System., The system 
library will be searched on the 
current dsk to satisfy any listing 
undefined globals The optional 
form E:Name (where Name is a global 
symbol previously defined in on e of 
the modules) uses Name for the 
start address of the program, use 
-E to load a program and exit 
to the monitor. 

Start execution of the program as 

*.u A A-nT-rant command line 
soon as the. current cur SV stem 
has been interpreted. The sysi: 



N 
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library will be searched on the 
current disk to satisfy any 
existing undefined globals. Befo £® 
execution actually begins, LINK-80 
prints two numbers and a begin 
EXECUTION message. The two numbers 
are the start address and the 
address of the next available byte. 
The optional form G:Name (where 
Name is a global symbol previously 
defined in one of the modules) uses 
Name for the start address of the 
program. 

If a <filename>-N is specified, the 
program will be saved on disk under 
the selected name (with a default 
extension of CMD) when a -E or -G 
is done. 

P and D -P and -D allow the origin (s) to be 

set for the next program loaded. 
-P and -D take effect when seen 
(not deferred) , and they have no 
effect on programs already loaded. 
The form is -P:<address> or 
-D:<address>, where <address> is 
the desired origin in the current 
typeout radix. (Default radix is 
hexadecimal. -0- sets radix to 
octal; -H to hex.) LINK-80 does a 
default -P:<link origin> (i.e., 
5200) . 

If no -D is given, data areas are 
loaded before program areas for 
each module. If a -D is given, all 
Data and Common areas are loaded 
starting at the data origin and the 
program area at the program origin. 
Example: 

*-P:200.FOO 

Data 200 300 

*-R 

*-P:200 -D:400,FOO 

Data 400 480 

Program 200 280 

u List the origin and end of the pro- 

gram and data area and. all 
undefined globals as soon as 
current command line has °^: n 
interpreted. The program informa 
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tion is only printed if a -D has 

been done. Otherwise, the program 

is stored in the data area. 



M 



List the origin and end of the pro- 
grain and data area, all defined 
globals and their values, and all 
undefined globals followed by an 
asterisk. The program information 
is only printed if a -D has been 
done. Otherwise, the program is 
stored in the data area. 

c Search the filename immediately 

preceding the -S in the command 
string to satisfy any undefined 
globals. 

Examples : 

# _ M List all globals 

*MYPROG.SUBR0T,MYLIB-S __ , 

MYPR ^' Load MYPROG.REL and SUBROT.REL and 

then search MYLIB.REL to satisfy 
any remaining undefined globals. 

# _ G Begin execution of main progr 



2.2 Sample Link 



DOS READY 

L80 

*EXAMPL,EXMPL1-G 

DATA 5200 52AC 
(5200 52AC] 
[BEGIN EXECUTION] 

1792 14336 

14336 ~ U2 Va 

-16383 ™ 

™ HI 

112 896 

DOS READY 
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2.3 Format of IJHK Compatible Object Files 

NOTE 

Section 2.3 Is »fjr«nc« Mt«rl«l *o[^J«» 
who wish to know th. load *%£\H r \ wlll 
relocatable object "las. *°" it doe8 no t 
want to skip this section, as " "" ti 
contain material necessary to the operation 
of the package. 

LINK-cbmpatible object files consist^ of^ a^bit 

stream. Individual "•"**:„ , except as noted 

are not aligned ° n ^yte boundaries^ P^^ object 

below. Use of a bit '"earn f tdm» to a minimum, 
files keeps the size of object rii reads/ writes. 
thereby decreasing the number or ai» 

«.,„■*»« at load items: Absolute 
There are two basic types of loaa ^ ^ 

and R»l° catab i e ; hesa T two -vpes. If the first bit 
indicates one of these two -** loaded as an 

is a 0, the *°ll° win f * J?t is a 1, the next 2 

absolute byte " the n ^ ca te one of four types of 
bits are used to maicate 
relocatable items: 

00 Special LINK item (see below) . 

* -~r.»m Relative. Load the following 16 

01 ^farte^Ing the' current Program 

base. 

~ ^ B .i,Hvi Load the following 16 
10 Data Relative, i- oau D t base . 

bits after adding the cur.euw 

r^™ Relative. Load the following 16 
^aftfr adding the current Common 
base. 

Special LINK items consist of the bit stream 100 
followed by: 

a four-bit control field 

an optional A field consisting 
of a two-bit address type that 
is the same as the two-bit field 
above except 00 specifies 
absolute address 

an optional B field cons-Sting 
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of 3 bits that give a symbol 
length and up to 8 bits for 
each character of the symbol 

A general representation of a special LINK item is: 
1 00 xxxx yy nn zzz + characters^of^symbol^name 
A field B field 

xxxx Four-bit control field (0-15 below) 

yy Two-bit address type field 

nn Sixteen-bit value 

222 Three-bit symbol length field 

The following special types have a B-field only: 

Entry symbol (name for search) 

1 Select COMMON block 

2 Program name 

3 Request library search 

4 Reserved for future expansion 

The following special LINK items have both an A 
field and a B field: 

5 Define COMMON size . . 

6 Chain external (A is head of address chain, 
B is name of external symbol) 

7 Define entry point (A is address, B is name) 

8 Reserved for future expansion 

The following special LINK items have an A field 
only: 

9 External + offset. The A value will 
be added to the two bytes starting 
at the current location counter 
immediately before execution. 

10 Define size of Data area (A is size) 

11 Set loading location counter to A 
15 Chain address. A is head of chain, 

replace all entries , in chain with current 

location counter. 

The last entry in the chain has an 

address field of absolute zero. 
n Define orogram size (A is size) 
\l End program (forces to byte boundary) 

The following special Link item has neither an A nor 
a B field: 



^ * ^ 15 End file 
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2.4 LINK- 80 Error Message! 

LINK-80 has the following error messages: 
?No Start Address A -G switch was !■■«•*# 

had been loaded* 

LINK-80 object file. 

?Out of Memory Not enough memory to load 

program. 

?Command Error Unrecognizable LINK-80 

command • 

?<file> Not Found <file>, as given in the command 
?<file> uoz roun string, did not exist. 

%2nd COMMON Larger /XXXXXX/ ..,..„ .* 

The first definition of 
COMMON block /XXXXXX/ was not 
the largest definition. Re- 
order module loading sequence 
or change COMMON block 
definitions. 

Mult. Def. Global WYYYY^ ^ ^ definition for 

the global linternall symbol 
Yyyyyy was encountered during 
the loading process. 

%Overlaying [Program 1 Area [^tart -_xxxx^ name> (xxxx) 

LDdta J I External - <symbol name>lxxxx) 
A -D or -P will cause already 
loaded data to be destroyed. 

?Intersecting [Program! Area 

I Data J _. j *.« «*-«» 

The program and data area 
intersect and an address or 
external chain entry is m 
this intersection. The 
final value cannot be con- 
verted to a current value 
since it is in the area 
intersection. 
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?Start Symbol - <name> - Undefined 
I After a -E: or -G: is given, 

* • the symbol specified was not 

defined. 

Origin [Above 1 Loader Memory, Move Anyway (Y or N)? 

LBelowJ 

After a -E or -G was given, 
either the data or program 
area has an origin or top 
which lies outside loader 
memory (i.e., loader origin 
to top of memory). If a 
Y <cr> is given, LINK-80 
will move the area and con- 
tinue. If anything else is 
given, LINK-80 will exit. 
In either case, if a -N was 
given, the image will already 
have been saved. 

?Can*t Save Object File 

. A disk error occurred when 

the file was being saved. 
2.5 Program Break Information 

LINK-80 .tores the address of * he **"* £F** 
location in a global symbol called $M£MRY if that 
iymSol has been defined by a program loaded. 
SMEMRY is set to the top of the data area «► » . 

NOTE 



If -D is given and the data origin is less 
than the program area, the ui.r juit be 
sure there is enough room to keep the 
program from being destroyed. This is 
particularly true with the disk driver for 
FORTRAN-80 which uses $MEMRY to allocate 
disk buffers and FCB's. 
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PAGE 18, 33 

Printer 7 

Program Relative .... 12 
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SET 18 
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CHAPTER 1 

V * 

\ EDIT-80 Operation 



1 . 1 Introduction 

EDIT-80 is a line-oriented and character-oriented 
text editor. EDIT-80 commands are » 1B Pl« *?^ 
straightforward, yet powerful enough to ^commodate 
the most demanding user. For the novice or for 
those requiring only cursory use of "IT-B0 ? tne 
first four chapters of this * ocw «* f°" ta i"i*^ 
the information necessary to complete a ^iriy 

extensive editing session. The ™?» in i"9 <**£?" 
describe the enhancements to EDIT-80 that provide 
the user with more sophisticated techniques. 

1.2 Running EDIT-80 

To run EDIT-80, type and enter 
EDIT 

at TRSDOS command level. EDIT-80 will ask for the 
filename by typing 

FILE: 

Enter the name of your file. Use TRSDOS filename 
format for the filename: 

filename [/extension] [.password] [:drive#] 

If the filename refers to a file that *l*«*<jjy 
• 1- *** ... followed by <enter>, and 
exists, type the filename wuowcu «* 

EDIT-80 will read in the file. If .^« fil« ?°* s 
not have line numbers, EDIT-80 will append them, 
beginning with line number 100 and incrementing by 
100. After EDIT-80 prints 

Vers ion x.x 

Cop yright 1 977,78 (c) by M icrosoft 
■ Created: xxxx 
xxxx Bytes free 

it is at commmand level, ^T^fi^^^fntered^f ter 
prompt. All commands to EDIT-80 are entered after 



the * prompt, 



If the filename refers to a new file to^be «••"*• 
;': type the filename followed by the <break> key. 
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EDIT-80 will return the message 

Creating 

Versi on x.x 

Cop yright 1977.78 (c) by Microsoft 

Created: xxxx 

xxx x Bytes free 

* 

Next enter the command I (see Section 2.1 for a 

further description of the I comma nd). EDIT -80 

will type the first line number, 00100, followed by 
a tab. 

♦I 
70100 



Now you are ready to enter the first line of your 
me* A line consists of up to 255 characters and 
is terminated by <enter>. After every line 
entered, EDIT-80 will type the next line numb^- 
incrementing by 100. This is the P*™£^ 
increment." (There are various commands that will 
change the permanent increment - see Chapter *.) 
Line numbers 00000 through 99999 are available for 
use in your EDIT-80 file. 

NOTE 

Microsoft products such as TRS-80 FORTRAN 
and MACRO-80 all support input files which 
include EDIT-80 line numbers. 

If a typing error is made while entering crediting 
a line! use the Delete key «-) to delete the 
incorrect character (s) . If, while typing a line, 
you wish to erase the entire line and start over, 
type shift < — • 

When you wish to step entering lines and return to 
command level, type the <break> key after the next 
available line number. 

1.3 Ending the Editing Session 

To exit EDIT-80, enter the Exit command: 
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command. See Section 6.1. 

a , 

To exit EDIT-80 without writing the edited file to 
disk, enter the Quit command: 

*Q 

After execution of a Quit command, all the changes 
entered during the editing session are lost. 

" 1-4 Line Numbers and Ranges 

Most commands to EDIT-80 require a reference to a 
line number or a range of line numbers. A line 
number is specified by using the number itself (it 
iinot necessary to type the leading zeros), or one 
of ^ree special characters that EDIT-80 recognizes 
as line numbers. These special characters are: 

. (period) refers to the current line 
A (up arrow) refers to the first line 
* (asterisk) refers to the last line 

Ranges may be specified in one of two ways: 

1. With a colon. The designation 
« 

200:1000 

means all lines from line number 200 to line 
number 1000, inclusive. If lines 200 and 1000 
do not exist, the range will begin with the 
first line number greater than 200 and end with 
the last line number less than 1000. 

2. With an exclamation point. The designation 

20013 

means the range of three lines that »^arts with 
line 200. If line 200 does not exist, zuu.j 
means the range of three lines that starts with 
the first line after 200. 

Here are some examples of line * n * f*^ 
specifications (shown here with the Print command) : 

P.:2000 Prints the range that begins with 
the current line and ends with 
line 2000. 

^i P500 Prints line 500. 

( • • • 

_> - p Prints the current Line. 
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P. 115 Prints the range that begins at 
the current line and ends after 
the next 15 lines, 

PA: 1500 Prints the range that begins with 
the first line and ends with 
line 1500. 

PA:* Prints the entire file. 

See Appendix C for more examples of range 
specification. 

1.5 Format Notation 

Throughout this document, generalized formats of 
EDIT-80 commands are given to guide the user. 
These formats employ the following conventions: 

1. Items in square brackets are optional. 

2. Items in capital letters must be entered as 
shown. 

3. Items in lower case letters enclosed in angle 
brackets are to be supplied by the user: 

<position> supply any line number (up 
to five digits) or . , A 
or 



ft #H 



-J 



<range> supply any <positicn> or 
any <range> 

<range> - <position>:<position> 
or 
<position> ! <number> 

<inc> supply a non-zero integer 
to be used as an increment 
between line numbers 

<filename> supply any legal TRSDOS 
filename as described 
in Section 1.2 

4. Punctuation must be included where shewn. 

5. Items separated by a vertical line are mutually 
exclusive. Choose one. | 

6. <break> refers to the break key and is- ^hoed 

as I. If you see a % in a format notation, it 
refers to the break key. 
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7. In any command format, spaces and tabs are 
insignificant, except within a line number or a 
filename. 

8. Underlined items are typed by EDIT-80. 
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CHAPTER 2 
Beginning Interline Editing 



Editing a file by printing, inserting, deleting and 
replacing entire lines or groups of lines is termed 
interline .editing. This section describes the commands used 
to perform these functions, 

2. 1 Insert Command 

The Insert command is used to insert lines of text 
into the file. EDIT-80 types each line number for 
you during insert mode. The format of the Insert 
command is: 

I[<position>[,<inc> | ;<inc>]] 

Insertion of lines begins at <position> and 
continues until <break> is typed or until the 
available space at that point in the file is 
depleted. (In either case, EDIT-80 returns to 
command level.) 

If no <inc> is included with the command, the 
default is the permanent increment. ,<inc> 
specifies a new increment that is then established 
as the permanent increment. ;<inc> specifies a 
temporary increment for use with the current 
command, but does not change the permanent 
increment. 

If no argument is supplied with the Insert command 
(Kenter>) , insertion resumes where the last insert 
command was terminated, using the last temporary 
increment. If only <position> is supplied 
(Kposition><anter>) , the permanent increment is 
used. 

EDIT-80 will not allow insertion where a line 
already exists. If <position> is a line number 
that already exists, the command Kposition> will 
add the permanent increment (or the temporary 
increment, if one was specified) to <position> and 
allow insertion at line number <position>+<mc>. 
If line <position>+<inc> already exists, or if line 
numbers exist between <position> and 
<position>+<inc>, an error message will be printed. 

The line feed (i) key may be used to start a new 
physical line without starting a new logical l^e, 
thus providing compatibility with Microsoft BASIC 



■ i 

( 
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source files. 

Here is an example using the Insert command: 

•17740,10 

ff7740 K-K+1 

ET75 6 GO TO 400 

FHT5 $ 



Note that the insertion is terminated with <*^ e ^>; 
The <break> key may be typed at the end of the last 
line inserted (instead of <enter>) or at the 
beginning of the next line. A line is not saved if 
<break> is the first key typed on that line. 

2.2 Delete Command 

The Delete command removes a line or range of lines 
from the file. The format of the command is: 

D<range> 

After a Delete command is executed, the current 
line (".") i* *et to the first line of the deleted 
range. 

Examples of the Delete Command: 

D7000 delete line 7000 

D. delete the current line 

D200:900 delete lines 200 through 900 

D2000:* delete all lines from line 
2000 through the last line 

2.3 Replace, Command 

The Replace command combines the effects of the 

Delete and Insert commands. The format of the 
command is: 

R<range>[,<inc> | ?<inc>] 

The Replace command deljt««>ll of the line, in 

<range>, then allows the u*er to enter new text as 
if an Insert command had been issued. (EDIT-80 
types the line numbers.) 
The options for selecting the increment between 
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line numbers are the same as those for the Insert 
command (see Section 2.1). 

Here is an example using the Replace command: 

*R500:600;50 

ff05OO DO 80 1-1,7 

OOSSti Y(X)-ALOG(Y(D) 

00600 80 CONTINUE 

I — 

50. Insertion teirinj."<*wc EDIT-80 to create 
there was not enough room Cor fcuxi ou 
line 650. 

2.4 Print Command 

The Print command prints lines at the terminal. 
The format of the command is: 

P<range> 

Examples of the Print command: 

P.:700 print all lines from the 

current line through line 700 

P800:* print all lines from line 800 
through the end of the rue 

T yp 
the 
Typ 
bef 
P<enter> will cause 

printed. 

2. 5 List Command 

The List command 

L<range> 
is the same as the Print coman?. except the output 
goes to the line printer. 




r'{ 
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2,6 Number Command 

The Number command renumbers lines of text. You 
may wish to renumber lines to "make room for an 
insertion, or just to organize the line numbers in 
a file. The format of the Number command is 

N£<atart>] [,<inc> J j<inc>H-<range>] 



where : 



~ ^^1 ?\y?~ ~i 



^ V-r. 6 * - -j ■ 



-r- ■ ~-s^fr-'^ - -fig£%"c*' 



:._L:.^'?? 



-^^-'^^r 



?uM' ' 




~.- i . .. 


jr~ £$£*• _ 








- Jy -^Jv " --' i 


'i^tl >S' 


'""-./* '3ffl4?SV i.,-^ 


«£• : 


|£. <■ 


-if- •• - 


■ ^3^ " ■- - 


._ r v.ii.'.'.. 


" *• - -~^9&i^~yi- 



<start> is the first number of the new 
sequence. If <start> is omitted but <range> is 
included, <start> is set to the first line o. 
<range>. If <start> and <range> are omitted, 
but <inc> is included, <start> is set to <inc>. 
If <start> is omitted and <inc> is included and 

;<rMge> Specif ies only -* page number <«;9-? 

'*/%), <start> is also set to <inc> on that 

pace. It <start>^f <range> and <mc> are 

lii; Smitted ? ,„ csta^rt^yis ,,«et to the permanent 

Sfe; ; increment . %~ ~ S^S * ~ .' ~ ~ 

i%%ii1fc> Is^ihe |fccrem££t between line numbers in 
'"""■ -th^hew s»quehfee.^.#^e options for selection or 
the increment; 3&re,^se same as those descrioec 
folf-the itaa»r^^conB4.raSr- < »j*e * Section 2 . i ) . 






^Tiraiwe> i$ ^e^angelrof "U** »**•« I; ** 
- *>^-^ 1 ^-*---^f6--£ re n^ab €r ^/- ^"I-f fCr*ige> is omitted, the entire 

: ->-f_i:^ Ct^T^iiji ii ^enum^xed.^^^- -,. 



^73SS" 






*J * -'>• -: if ^Number command, would reiult .in lin e numbers 
%?i ^fe^it"ii^tht"Ur|ti!»i1unfe:tbt^iV€n increment, an 






t^SDtT--itr^::fitf?n^l^^morr requirements tor 

ecuiing *Jluafe* ^^^^^/!n CmP -lnsuffic^nl 
-*a.-.^-rt» v#rr~iarge^fil«^may^-«sult m an msu rricxcnt 
^X «^ori% : '«rxpr: fJ?-;t%t^i|^tion arises, render 

"^ VJ^» =m*iur aSVtidfr^f -fili file-, write it to gisk, 
^^, 5 ^^£.maller fgti^*^-^ A |^^ nd go cn# (See write 









"^"^"^ - ^-. ,0-Voo-2&*OQ^^n^ 200 through 1000 will 
*,,.P^^'J/0J.O^o •^-^•-^^T#tSifftiSbered to begin at 

' $mnijSM$0 and increment by 




-T' - -- • ' " •■■-■- -tc- • - *■■ ■=-■' ••■•- "■ *^-^t -*-- ? "~ '*t^" : ' ; ' - 



"fa^i.?' I^it. liaf., fcti^fc- ■ 3C ^-S3"^ 



^TiVi *^ ^asJj-''^ ^5i% J - i^^jfls. "^fe^^ ^^^p"^ ?"5f2?- 
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a 1 q-400 •* L^es 400 through the end 

N ' 10 400 ° W in be renumbered to begin 

with 400 and increment by 10. 

N9000-10000:* Using the permanent increment 
N900U .uuwui ^^^^^ 10Q00 through th e end 

will be renumbered to begin 
at 9000. 

N 100 Renumber the whole file using 

' increment 100. 

H, 5-2350110 This command could be used to 

' make room for an insert ay 

compactifying the ten lines 
starting with 2350. 
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CHAPTER 3 
1 

Intraline Editing - Alter Mode 

The interline editing commands discusse d thus f ar let you 
edit by inserting, deleting or replacing en ^" o ^ ne ^; ?* 
course* many editing situations *•*""• f^ n «%he^ine 
existing line but not necessarily *«W^ e ° f ^ ra u^ 
Editing a line without retyping it is called intraiine 
• editing, and it is done in Alter mode. 

3.1 Alter Command 

The Alter command is used to enter Alter mode. The 
format of the command is: 

A<range> 

In Alter mode, EDIT-80 types the line number of the 
lii>e to be altered and waits for an Alter mode 
subcommand* 

3.2 Alter Mode Subcommands 

Alter mode subcommands are used to move the cursor; 
searcher text; or insert, delete or replace text 
within a line. The subcommands are not echoed on 
the terminal. 

Many of the Alter mode subcommands may be Preceded 

by an integer, causing the command to be executed 
that number of times. (When no «*«9« ** 
specified! the default is always 1.) In « n * «"«• 
^e entire command may also be Prefaced 
minus sign (-) which changes the normal direction 
of the command' ■ action. For example: 

D deletes the next character 

6D deletes the next 6 characters 

-D deletes the last character 

-12D deletes the lest 12 characters 



I 
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Each Alter mode subcommand is described below. A 
summary of the subcommands is given in Appendix B. 

NOTE 

In the following descriptions, $ represents 
<break>, <ch> represents any character, 
<text> represents a string of characters or 
arbitrary length and i represents any 
integer. 



3.3 Cursor Position 

The following commands or terminal keys are used to 
change the position of the cursor in the !«•• ™J 
location of the cursor is called the current 
position." 

<space> spaces over characters. i<*P ac *> "» v «» );he 
cursor i characters to the right. 
-i<space> moves the cursor i characters to 
the left. Characters are printed as you 
space over them. 

— > moves the cursor to the end of the line. 
If preceded by a minus sign, moves the 
cursor to the beginning of the line. 

L prints the remainder of the line and posi- 
tions the cursor at the beginning of tne 
line. Proceed with the next Alter mode 
subcommand. 

P prints the remainder of the line and recy- 
cles the cursor to the current position. 
Proceed with the next Alter mode 
subcommand. 

moves to the beginning of the next word. A 
word is defined as a contiguous collection 
of letters, numbers, • ' * ' °f . 'A 
advances the cursor over the next i words. 
-iW moves the cursor back through i words 
to the left. 



W 



3.4 Insert Text 



inserts text. Ktext>$ inserts the given 
text beginning at the f^ent positio n 
Note that the text must be followed oy 
<break> or by <enter>. 
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B inserts spaces (blanks) at the current 

position. The B command may be preceded 
by an integer to insert that many spaces. 
Spaces are inserted to the right of the 
cursor only. 

G inserts characters. iG<ch> inserts i 
copies of <ch>. 

X •xtends a line. The X subcommand types 
the remainder of the line, goes into 
insert mode and lets you insert text at 
the end of the line. The -X subcommand 
moves to the beginning of the line ana 
goes into insert mode. (Don't forget to 
•nd your insertion with <break> or 
<enter>. ) 



3.5 Delete Text 



H 



deletes the character at the current posi- 
tion. iD deletes i characters beginning 
at the current position. -iD deletes i 
characters to the left of the current 
position. Deleted characters are 
surrounded by double exclamation points. 

The back-arrow key may also be used to de- 
lete characters. The character 
immediately to the left °* ***""«** 
position is deleted. i<back-arrow> is 

equivalent to -iD. 

deletes (hacks) the remainder of the line 
to the right of the cursor (or to the left 
of the cursor if -H is typed) and enters 
the insert mode. Text insertion proceeds 
as if an I command had been typed. 

deletes (kills) characters. K<ch> deletes 
all characters up to but not including 
<ch>. iK<ch> deletes all characters up to 
the ith occurrence of <ch>. -* K *™* 
deletes all characters up to and including 
the ith previous occurrence of «*>• " 
<ch> is not found, the command is not 
executed. 



<. 
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deletes (obliterates) text. 0<text>$ de- 
letes all text up to but not including the 
next occurrence of <text>. iO<text>$ 
deletes all text up to the ith occurrence 
of <text>. -iO<text>$ deletes all 
characters up to and including the ith 
previous occurrence of <text>. 

T deletes (truncates) the remainder of the 

line to the right of the cursor (or to the 

left of the cursor if -T is typed) and 
exits Alter mode. 

Z deletes (zaps) words. iZ deletes the next 
i words. -iZ deletes words to the left of 
the cursor. * 



3.6 Replace Text 



replaces text. iR<text>$ deletes the next 
i characters and replaces them with 
<text>. -iR<text>$ replaces text to the 
left of the cursor. The deleted 
characters are echoed between double 
exclamation points. 

changes characters one character at a 
time. C<ch> changes the next character to 
<ch>. Only the new character is echoed. 
iC may be followed by i characters to 
change that many characters; or it may be 
followed by fewer than i characters and 
terminated with <break>, in which case the 
remaining characters will not be changed. 
-iC does an Kback arrow> and then an iC. 
The Kback arrow> is echoed between 
exclamation points. 



3.7 Find Text 



searches for a character. S<ch> searches 
for the next occurrence of <ch> after the 
current position and positions the cursor 
before the character. iS<ch> searches for 
the ith occurrence of <ch>. -S<ch> and 
-iS<ch> search for the (ith) previous 
occurrence of <ch> and position the cursor 
immediately before it. The character at 
the cursor position is not included in tne 
search. If <ch> is not. found, the'eommand 
is ignored. 



I + 
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F finds text. F<text>* finds the next occur- 
rence of <text> and positions the cursor 
at the beginning of the string. iF<text>$ 
finds the ith occurrence of <text>. 
-F<text>$ and -iF<text>$ find the (ith) 
previous occurrence of <text> and position 
the cursor before it. 

3.8 Ending and Restarting Alter Mode 

<cr> carriage return. Prints the remainder of 
the line, enters the changes and concludes 
altering of that line. 

A samft as carriage return. 

E enters the changes and concludes altering 
of that line, but does not print the 
remainder of the line. 

N restores the original line (changes are 
not saved) and either moves to the next 
line (if an A<range> command is still in 
progress), or returns to command level. 

restores the original line (changes are 
not saved), exits (quits) Alter mode, and 
returns to command level. 

Shift «— Restores the original "»•.■"*» *" A1 "* 
mode and repositions the cursor at tne 
beginning of the line. Echoes as AY. 

3.9 Extend Command 

The Extend command is issued at command level and 
is used to extend lines. The format of the command 
is 

X<range> 

The effect of the X command is equivalent to typing 
«n A command, followed by an X subcommand. After 
entering an X «*«" d • g 00 ^ b Jf ^ !in^! Don't 
forget yo"in*Sow*in Alter'mode and may use any of 
the Alter mode subcommands, once <break> has been 
typed. 

The Extend command is particularly u seful for 
placing comments in assembly language programs. 
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CHAPTER 4 
Find and Substitute Commands 



When it is necessary to change a certain P°f4 °f ***!' ^ 
is not always immediately known where that text i ^Jted 
in the file. Even with a listing of the file on hand, it is 
a tiresome task to scan the listing to find the line number 
of a particular item that must be changed. 

The EDIT-80 Find and Substitute commands allow the user to 
quickly locate text and make necessary changes. 

4.1 Find Command 

The Find command locates a given string °f *•***" 
the file and types the line (s) containing that 
string. The format of the command is: 

F[<range>] [,<limit>] <enter> j *<string>$ 

where $ represents the escape key and <^ it: > ** 
the number of lines containing <*t^ng> to be 
found. A limit of zero will find all occurrences 
of <string>. The following rules apply to the 
format of the Find command: 

1. If *<string>$ is omitted, the last string given 
in a Find command is used. 

2 If <limit> is omitted and $<string>$ is 
included, <limit> is assumed to be 1. 

3. If <limit> and $<string>$ are omitted, the 
previous limit is assumed. 

4 If <range> is omitted and $<string>$ is 
included! the entire range from the previous 
Find command is used. 

s Tf <ranae> and $<string>$ are omitted, the 
search 9 ?or the previoul string continues from 
the line where the last occurrence was found. 

If the search is unsuccessful, an error message is 
printed. 



1 
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Here is a sample editing session using Find: 

*fa.*$WHI (I)$ F * nd the first line that , . 

u-llio iffll (I)-0 contains WHI(I). Prints line 

L, pnter> 1100. Find the next one. Print 

71400 I F (P.CT,WHI(I))WHI(I)«P line 1400. Caught a mistake 

T£l — — " "" in this line. Alter it. 

71400 



*f 2SWLO # ms Find the first two lines in the 

71200 WLOCD-9999 file that contain WLO (I) (range 
SUoq if TpTltTwlo(i))wlo(I)«p is still .:*). ^ints lines 

» ' 1200 and 1500. Alter line 1500. 

71500 

*F 8 *$AVG$ Find the first line in the file 

Search fails that contains AVG. There aren't 

%?$MEAn! *ny. Try finding MEAN instead. 

7 3700 MSAN-SUM/40 ^^"i J 1 "!* 370 ? <'«.c rnnt^n- 

TF-75 : Find all other lines contain- 

74 200 IF (P. GT. MEAN) M-M+1 ing MEAN. (Search begins at the 

77 H6 6 WRITE (6.170) MEAN, M line after line 3700.) Finds 

la43ofl " two more (4200 and b/ooj . 

74200 . Altftr line 4200 ' etC ' 
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4.2 Substitute Command 

The Substitute command locates a given string, 
replaces it with a new string and types the new 
line(s). The format of the command is: 

S[<range>] [,<limit>] <enter> I $<old string>$<new string>$ 

where $ represents <break>, and <limit> is the 

number of lines in which <old string> is to be 

replaced by <new string>. A limit of zero will 
replace all occurrences of <old string> with <new 

string>. <new string> may be a null string. The 

following rules apply to the format of the 
Substitute command: 

1. If $<old string>$<new string>$ are omitted, the 
strings given in the last Substitute command 
are used. 

2. If <limit> is omitted and $<old string>$<new 
string>$ are included, <limit> is assumed to be 
zero. 

3. If <limit> and $<old string>Knew string>$ are 
omitted, the previous limit is assumed. 

4. If <range> is omitted and $<old string>$<new 
string>$ are included, the entire range from 
the previous Substitute command is used. 

5. If <range> and $<old string>$<new string>$ are 
omitted, substitution continues from where the 
last substitution left off. 

If no occurrence of <old string> is found, an error 
message is printed. 

Example: 

*SA:5000$ALPHA$BETA$ From the first line 

70950 BET A(K)«ABS(1.-LST(K)) to line 5000, replace 

S-yyro W RITE(6,4uQ) BETAdO all occurrences of 

04 1 00 IF (BETA(lO.LT.6)GOTO 9000 ALPHA with BETA. 



v - < 



i 
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CHAPTER 5 
Pages 



It is possible to divide an EDIT-80 file into sections 
called pages, which are separated by page marks. The first 
page of a file is always page 1, and EDIT-80 always enters 
command level on page 1 of a multiple-page file. Each 
subsequent page begins with a page mark and is numbered 
sequentially. On any given page, the complete range of line 
numbers (00000 to 99999 or any portion thereof) may be used. 

If EDIT-80 encounters a form feed while reading in a file, 
it will enter a page mark at that point in the file. If 
EDIT-80 encounters a line number that is less than the 
previous line number, it will automatically insert a page 
mark so that proper line number sequence may be maintained. 
When EDIT-80 writes a file out to disk, a form feed is 
output with each page mark. Then, when the. file is listed, 
each new page of the file starts on a new physical page. 

5. 1 Specifying Page Numbers 

In a single-page file, only a line number is needed 
to indicate <position>. In a multiple-page file, 
EDIT-80 must know the page number as well as the 
line number to determine a <position>. That is, 
<position> is indicated by 

<line>[/<page>] 
where 

<line> is ■.", "A", "*" or a number of up to five 
digits. 

<page> is ".", "A", "•" or a number of up to five 
digits. When specifying a page, the characters 
".", "A" and "*" refer to the current page, the 
first page and the last page, respectively. If 
<page> is omitted, the current page is assumec. 

Consequently, in a multiple-page file a <range>, 
which may be indicated by 



<position>:<position> 

or 

<position> ! <number> 

may also contain page numbers. If the pase number 
is omitted from the first line number in the range, 
it is assumed to be the current page . If the page 
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number is omitted from the second line number in 
the range, it is assumed to be on the same page as 
the first line number in the range. 

Here are some examples of line numbers and ranges 
that include page number specification: 

100/2:*/* Line 100 on page 2 through 

the last line on the last page 

100/2:* Line 100 on page 2 through 

the end of that page 

100:*/5 Line 100 on the current page 

through the last line on 
page 5 

100/* Line 100 on the last page 

100/.:*/3 Line 100 on the current page 

through the last line on 
page 3 

See Appendix C for more examples of range 
specification. 

5.2 Inserting Page Marks 

Page marks may be inserted in the file at the 
discretion of the user. To insert a page mark, use 
the Mark command. The format is: 

M<position> 

The page mark is inserted immediately after 
<position>. <position> must exist or an error 
message will be printed. 

The current line reference (".") is retained after 
a Mark command is executed. That is, if <position> 
is before ".", then "." will be moved to the next 

page and will still point to the same physical 
line. 



5.3 Deleting Page Marks 

Page marks are deleted with the K (Kill) command. 
The format of the command is: 

K/<page> 

The K command deletes the page mark after <page>. 
For example, in a four-page file, K/2 would delete 
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the second page mark (the page mark that started 
page 3), and the pages would then be numbered l, 2, 
and 3. The last line number on <page> must be 
lower than the first line number on <page>+1 before 
a K/<page> command can be executed. 

5.4 Begin Command 

Use the Begin command to return to the beginning of 
a page. The format of the Begin command is: 

B[/<page>] 

If <page> is omitted, the B command returns to the 

beginning of page one. 

5- 5 Other Commands and Page Marks 

1. A Delete command that crosses over a page 
boundary will delete all lines in the range , 
but will not delete the page mark. 

2. A Print command that moves off the current page 
will print the new page number prior to 
printing the first line specified in the 
command • 

3. When output is being done with the List 
command, a form feed will be printed with each 
page mark, and the page number will be printed 
on each page. 

4. A range specified with an exclamation point may 
cross a page boundary. 

5. If the range specified in * Number command 
crosses page boundaries, numbering will start 
over on each new page; the first line number 
will equal the increment. Consequently, in the 
Number command, <start> and the first, line of 
<range> must be on the same page. 
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CHAPTER 6 
Exiting EDIT-80 



Section 1.3 introduced the Exit and Quit commands for 
exiting EDIT-80. These two commands will be described more 
completely in this chapter. An additional command, the 
Write command, will also be presented. 



6. 1 Exit Command 

The Exit command is used to write the file to disk 
and return to TRSDOS. The format of the command 
is: 

E[<filename>] [-<switch>] 

The edited file is saved on the disk under 
<filename>. When exiting a new file for the first 
time, <filename> may be omitted. (In which case, 
the opening filename is assigned.) Otherwise, a new 
filename is required for each Exit. The previous 
file serves as a back-up. 

The optional <switch> controls the format of the 
output. (See Section 6.5.) 

6.2 Quit Command 

The Quit command is used to return to TRSDCS 
without writing the edited file to disk. To Quit 
editing, simply enter: 



After a Quit command, all changes entered during 
the editing session are lost. 

6. 3 Write Command 

The Write command writes the edited text to disk 
and then returns to EDIT-80 command level. It does 
not exit the editor, and the current position in 
the file is not changed. The format of the command 
is : 

W[<filename>] [-<switch>] 

A filename is not required in the first Wri-teof a 
new file. A filename is required, however, in all 
subsequent Write and Exit commands. 
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The optional <switch> controls the format of the 
output. (See Section 6.5.) 

6.4 Index Files 

When reading in a file to be edited, "IT-80 
generates information it needs about each block of 
the disk file. With a small file, thi. information 
is generated in a few seconds, each time the tile 
is read in. However, with larger files (5K or 
more), the time lag required to read in the Ha 
becomes significant. Thus , when MIT-80 saves a 
file of 42 or more records on the disk, it aiso 
saves a small file, separate from the text file, 
containing the required information about the text 
file. 

This small file is called the index file, and it 
can be read faster than the text file. EDIT-SO 
saves the index file under a filename that is the 

same as the text filename (P**f<° rds »°^ nC ^i ne 
with a 2 preceding the *i rst /wo letters of the 

extension. For example, if the f £1*** called 
FOO/MAC.SAM, the index file is called FOO/ZMA. 

When EDIT-80 is asked to edit a *il*j ** "£* 
checks for an index file. If an index file « xl5 ts, 
»£-IO reads the index file instead of th e text 
file. Care must be taken if the text file is 
Edified by another editor or changed an d save d in 
BASIC. The user must then delete the index tiie 
BAbiu. ahb um again with EDIT-80. 

prior to editing the "" "^J yo pnTT-B0 will nave 
If the index file is not deleted, ^""J " 111 
meaningless information about the text file. 



6.5 Parameters 

When reading in a file, EDIT-80 expects it to be in 
EI" own representation If the lie appears to ^ 
in another representation, EDIT-80 will aaa 
numbers and try to convert the ^^ to edit u 
' Standard format. There are, however, ^J" 1 "^r 
representations that EDIT-80 accepts, if the Pfoper 
^Hch is «PP«nded to the input filename. Switches 
are always preceded by a dash l-I » 

filename [/ext] [.password] [:drive#] [-switch] 
For example: FOO/BAS.SAM-BA5IC 
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6.5.1 BASIC Switch 

If the BASIC switch is appended to the input 
filename, EDIT-80 will read the file using the 
following algorithm: 

1. All leading spaces and tabs are removed from 
each line. 

2. The first non-blank character must be a digit. 

3. From 1 to 5 leading digits are converted to a 
line number. More than 5 leading digits 
constitutes a fatal error. 

4. A tab is inserted if the first non-digit is not 
a space 0-- a tab. If the first non-digit is a 
•pace, it is replaced by a tab. If the first 
non-digit is a tab, it is left alone. 

5. On output, if UNSEQ (see Section 6.5.2) has 
been selected, leading zeros in the line number 
are suppressed and the tab is converted to a 
space. 

Because BASIC uses line numbers to control the 
sequence of program execution, BASIC users should 
beware of renumbering with the N command. 
Microsoft BASIC will ignore page marks from trie 
EDIT-80 file, so a BASIC file may have multiple 
pages. Insure, however, that no line number 
appears more than once in the program. 

6.5.2 SEQ and UNSEQ Switches 

If the SEQ switch is appended to the input 
filename, EDIT-80 will use the same algorithm to 
interpret the text file as with the BASIC switch. 
However, when the file is output, it will be in 
standard EDIT-80 format, unless the UNSEQ switch is 
appended to the output filename. 

The UNSEQ switch on input tells EDIT-80 to append 
its own line numbers to the incoming J^ e > 
regardless of what it looks like. This twitch must 
be used if the incoming fil« has digits at the 
beginning of lines with high bits on that are not 
to be interpreted as line numbers. 

On output, the UNSEQ switch must be specified (if 
i? hasn't been already) to output a non-standard 
file. That is, if BASIC is specified on ^?*t *nd 
UNSEQ is specified on output, the file will oe 
output in BASIC format. If BASIC was not specified 
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the file 



■-n 



on input and UNSEQ is specified on output, the tiie 

will be output with no !*«« *^«" ™2iSS 

tab. If the UNSEQ switch was 'P*"'^*™ iTe 

and the user wishes to output a standard file, tne 

SEQ switch on output will override the UNSEQ 

switch. 
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APPENDIX A 
Alphabetic Summary of Commands 



Command Format and Description 



Alter 
Begin 

Delete 
Exit 

Find 
Insert 



Mil 

List 
Mark 
Number 



Print 



Quit 



A<range> 

Enters Alter mode. 

B[<page>] 

Moves to the beginning of <page> 

Default is page 1. 

D<range> 
Deletes lines, 

E[<filename>] [-<switch] 
Writes the edited text to disk 
and exits the editor. 



F[<range>] [,<limit>] <enter> I $<string>$ 
Finds occurrences of <string>. 

I[<position>] [,<inc> | ;<inc>] 
Inserts lines beginning at <position> 
using increment <inc>. with no 
argument, continues with previous 
Insert command. 

K/<page> 

Deletes the page mark at the end of 

<page>. 

L<range> 

Prints lines. at the line printer. 

M<position> 

Inserts a page mark after <position>. 



N[<start>] [,<inc> | ;<inc>] [«<range> 
Renumbers the lines in <range> so 
they begin at <start> and increment 
by <inc>. 

P[<range>] 

Prints lines at the terminal. 
With no argument, prints the 
next 20 lines. 



Exits the editor without writing 
the edited text to disk. 



Page 
15 

25 

11 

6, 26 



20 



10 



24 



12 



24 



13 



12 



6, 26 



i 
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Replace R<range> [ ,<inc> | »<inc>] 18 

Replaces lineCs) using increment 
<inc>. 

Substitute S[<range>][,<limit>]<enter>|s<old string>$<new string> 
Replaces <old string> with <new string>. ^ 

Write W[<filename>][-<switch>] 6 

Writes the edited text to disk but 
does not exit the editor. 

extend X<range> 

Allows insertion of text at tne 
end of a line. 
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APPENDIX B 
Alphabetic Summary of Alter Mode Subcommands 



/ /"""V 



Command Format 
A A 



B 


[i]B 


C 


[-] [i]C<ch>[...<ch>] 


D 


[-HilD 


E 


E 


F 


[-] [i]F$<text>$ 


G 


[i]G<ch> 


H 


[-]H<text>$ 



N 



Ktext>$ 

[-] [i]K<ch> 



N 



[-] [ilO<text>$ 



Action 

Prints the remainder of the 
line, enters the changes 
and concludes altering of 
that line 

Inserts spaces 

Replaces characters 

Deletes characters 

Enters the changes and 
concludes altering of that 
line 

Finds <text> 

Inserts i copies of <ch> 

Deletes the remainder of 
the line and enters the 
insert mode 

Inserts <text> 

Deletes all characters up 
to <ch> 

Positions the cursor at the 
beginning of the line 

Restores the original line 
and either moves to the 
next line (if an A<range> 

command is still in 
progress) or returns to 
command level 

Deletes all characters up 
to <text> 

Recycles the cursor to the 
current position 

Exits Alter mode and 
restores the original line 
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[-] [i]R<text>* 



s 


{-] [iJS<ch> 


T 


MT 


W 


[-][i]w 


X 


[-1X 


z 


— l-lliiz 



1-] -> 

[-] [i]<space> 

<enter> 

Shift < — 



Replaces i characters with 
<text> 

Finds <ch> 

Deletes the remainder of 
the line and concludes 
altering of the line 

Moves the cursor over words 

Extends the line 

Deletes words 

Moves the cursor to the end 
of the line 

Deletes characters 

Moves the cursor over 
characters. 

Prints the remainder of the 
line, enters changes and 
concludes altering of that 
line 

Restores the original line, 
stays in Alter mode and 
repositions the cursor at 
the beginning of the line. 
Echoes as fY. 
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APPENDIX C 
Summary of Notation 

The notation used in this document may be defined as follows: 

<line> - <number> | . | A | * 

<page> « <number> | • | A I* 

<position> • <line>[/<page>] 

<range> - <position>[ :<position> | !<number>] 

where: 

<number> - <digit> | <number><digit> 

<digit> 



I 1 I 2 | 3 | 4 | 5 | 6 | 7 | '8 | 9 



Shorthand Notation for Ranges 

The following "shorthand" forms of range specifications may be us ^ 
with EDIT-80 commands. 

Shorthand Equivalent , *? an 9 e -. , 

yortnatm j Spe cified 

Notation I£ -* 

/<page> A/<page>: */<page> All of <page>. 

/^^•i>./<naae2> A/<page1> : */<page2> The first line on <page1> 
/<page1>:/<page^;> A/*.p*g« / v * through the last line on 

<page2>. 

A/1:*/* The «ntire file. 

<position>: < P osition>:*/* <position> through the e^ 

<posiiion/. r of the fl i e# e.g./ 

.: is the same as ./.:*/' 

•*• -s A/1-<ooaition> The first line in the file. 
:<position> A/l.<position^ through <position>. e.g. 

:. is the same as a/1:./ 
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t APPENDIX D 

4 EDIT-80 Special Characters 



<break> Aborts the command in progress 

and returns to EDlT-eu 
command level. 

_ ¥ Types a tab. 

Shift «- Srases the Une being typed 

and lets you start over. 
When used in Alter mode, Shifts- 
restores the original line, 
itays in Alter mode and 
repositions the cursor at the 
beginning of the line. 

Control characters are typed by holding down the shift 
key I the down-arrow (|) key and the correct alpha key 
at the same time. 

Control Su * pendS ^ re ^'%?n! P nrinter> 

the terminal or line printer; 

from an EDIT-80 command. 

Control S Hal "/"!r™nd Uti ° n ° £ 

an EDIT-80 command. 
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APPENDIX E 
Error Messages 

Fatal Errors 

Disk I/O errors are fatal. The corresponding TRSDOS error 
message will be printed. 

Any TRSDOS system error message is fatal. 

Illegal line fo rmat ^ . ^ 

Sc^rT-wn^n-EDTf^ff finds a line with strange contents or a 
strange line number. This should not normally occur when 
editing a file created by EDIT-80. It is «■*»"£ «£jf a by 
reading files not meant for editing, such as binary files. 



Edit Error Messages 

Illecjal command m , . .„-. 

Tells the user ' " a nonexistent or ill-formed command was 

typed . 

Insufficient memory available 

Occurs when thTHstr has made enough changes to the ^V*° 
have exhausted EDIT-80 '■ memory area. This should only 
happen when a large file has many changes or when large 
portions of code are being inserted or renumbered. A W 
command should be done to compress memory. 




arguments, or when an <escape> 
typed following the range. 

No such li ne (s) i in» nr 

fHis-^TsiTge-I? issued if a command references a line or 

range which does not exist. Usually occurs when tne proper 

page number is omitted from the line or range. 

Line too long .*4.*m^«-« *n enter a 

This* nSssageis issued when the user attempts to enter « 
line longer than 255 characters. Thi; may happen when the 
line is read or as a result of a command which alters the 

line. 

fKiicTteTTnat the line nunfc.r. in the. file would not be in 
ascending order if the coi^and «£"« w£« ~«* 1. not 

frequently happens when trying to insert wnere tnei 
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•nough room or trying to delete a page mark. 

i^oMaTIve message that tells the user a search was 
unsuccessful. 

fKlf Minfe l. Printed whenever a line greater than 99999 
would be generated. 

File Errors 

File *±"£& ££i||£ . t givc the n ame of an existing 
IisU«rTT-tKe user tries to gw «• usin th# name 

file to a new file, or tries to *•«•»« « 
of an «xisting file in an E or W command. 

llsTea^If^^file specified in a command could not be 
found. 

Tiift »i file specifica tion ni ...i 

15I5rS iKe^u ser that the c onsnand string contains an illegal 
character of some kind. 
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APPENDIX F 
Output File Format 



Compilers and assemblers should ignore the line numbers and 
page marks included in EDIT-80 output files (except when 
included in listing files). Microsoft TRS-80 FORTRAN and 
MACRO- 80 both do so. 

A line number consists of five decimal digits followed by a 
tab character. All six bytes have the high order bit (bit 
7) equal to one. It is not recommended that EDIT-80 files 
be listed with the TRSDOS LIST command. Graphics characters 
may appear in the line numbers. Use EDIT-80 's Print command 
instead. 

When writing a file with -BASIC set, the line numbers have 
the high order bits equal to zero. Each line number is 
followed by a space that has the high order bit equal to 
zero. 

A page mark is a form feed character with the high order bit 
equal to one. 



Sj 
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Index 

Alter command 15 

Alter mode ]| 

Alter mode subcommands • • • • i5-i9# J* 

BASIC switch 28, 38 

Begin command ...••••••25 

Command level 5 

Control-0 35 

Control-S 35 

Delete command . • 11, 25 

Delete key 6, 33 

Error messages 36 

Exit command f, 26 

Extend command 19 

Find command 20 

Form feed . 23, 25, 38 

Index files 27 

Insert command 6,io 

Kill command 24 

Line feed ]°; 1 i? - 7 , a 

Line numbers * * - i? 25 

List command M , to 

Mark command 24 

Number command 13, 25, 28 

Page mark l\~ 2 * ' " 

Page numbers •;» 

Parameters \ ' in .- 

Permanent increment J' ':! :. 

Print command 12 ' 2:> ' - 30 

7 26 
Quit command '» 

Replace command 11 

SEQUENCE switch 28 \ 

Shift<— 6, 19, 33, 35 

Space bar Vi \ 

Substitute command ** 

Switches 27 

Tab key 1 *' 3 |. ..- 36 3 g " 

TRSDOS 5 6# B ' ^ ' ' 



UNSEQUENCE switch 28 

Write command ••••••••26 



